Исходное сообщение
"помогите с простенькой задачкой" Отправлено михалыч, 15-Янв-17 08:45
Ну что же, сам напросился - получай )) #!/usr/bin/perl open (DOMAIN, /path/to/file/domain); @domain{<DOMAIN>}=(); open (MAIL, /path/to/file/mail); while (<MAIL>) {     /^.*\@(.*)/;     print unless exists $domain{"$1\n"}; } насчет жручести памяти в перле будем считать тебя предупредили выше

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Ну что же, сам напросился - получай )) > [code] > #!/usr/bin/perl > open (DOMAIN, /path/to/file/domain); > @domain{<DOMAIN>}=(); > open (MAIL, /path/to/file/mail); > while (<MAIL>) { > /^.*\@(.*)/; > print unless exists $domain{"$1\n"}; > } > [/code] > насчет жручести памяти в перле будем считать тебя предупредили выше
	Введите код, изображенный на картинке: