Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено anonymous, 09-Ноя-09 01:11
Небольшое "увеличение" перлового варианта (что б не компилировать регэкспы много раз): #!/usr/bin/perl open my $f, shift @ARGV; my @re = map { qr/$_/ } @ARGV; for my $l (<$f>) { for (@re) { print $l and last if $l =~ $_ } }; и не нужно никакого распаралеливания: перл: real    0m9.032s user    0m7.924s sys     0m0.028s питон: real    0m31.792s user    0m28.753s sys     0m0.030s

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Небольшое "увеличение" перлового варианта (что б не компилировать регэкспы много раз): > #!/usr/bin/perl > open my $f, shift @ARGV; > my @re = map { qr/$_/ } @ARGV; > for my $l (<$f>) { for (@re) { print $l and last > if $l =~ $_ } }; > и не нужно никакого распаралеливания: > перл: > real 0m9.032s > user 0m7.924s > sys 0m0.028s > питон: > real 0m31.792s > user 0m28.753s > sys 0m0.030s
	Введите код, изображенный на картинке: