Исходное сообщение
"помогите с простенькой задачкой" Отправлено михалыч, 15-Янв-17 20:56
> А тебя ещё чуть выше предупредили про "медленный" греп да что за предъявы? сижу никого не трогаю, починяю примус на перле заказывали? получите, распишитесь )) ну можно ещё так отрезать "всё до вон того символа" #!/usr/bin/perl open (DOMAIN, domain); @domain{<DOMAIN>}=(); open (MAIL, mail); while (<MAIL>) {     $m=$_;     $m=~s/^.*\@//;     print unless exists $domain{$m}; } но сути использования ключей хеша это не изменит а ТС, если захочет, замерит, что там будет быстрее, чем grep -vFf domain mail и насколько быстрее, а если памяти мало - так это не ко мне, это в магазин за углом ))

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> А тебя ещё чуть выше предупредили про "медленный" греп > да что за предъявы? > сижу никого не трогаю, починяю примус > на перле заказывали? получите, распишитесь )) > ну можно ещё так отрезать "всё до вон того символа"[code]#!/usr/bin/perl > open (DOMAIN, domain); > @domain{<DOMAIN>}=(); > open (MAIL, mail); > while (<MAIL>) { > $m=$_; > $m=~s/^.*\@//; > print unless exists $domain{$m}; > }[/code]но сути использования ключей хеша это не изменит > а ТС, если захочет, замерит, что там будет быстрее, чем [code]grep -vFf > domain mail[/code] и насколько быстрее, > а если памяти мало - так это не ко мне, это в > магазин за углом ))
	Введите код, изображенный на картинке: