Исходное сообщение
"awk быстрее perl ?" Отправлено greenwar, 29-Май-10 11:25
тэкс, тут появилась ещё одна непонятка.. теперь PHP быстрее Perl на регулярках ^^ поможете разобраться в причинах? <?php $fp = fopen('text.txt', 'rt'); while (!feof($fp)) {   $str = fgets($fp);   for($i=0; $i<100; $i++) {     $pattern_str = rand(100, 1000);     preg_match_all('/'.$pattern_str.'/', $str, $out);   } } ?> в 3 раза быстрее, чем: #!/usr/bin/perl -w while(<>){ # обрабатываем построчно указанный файл. формат запуска скрипта: time ./script textfile     for(0..99){ # цикл на 10к раз. в каждой строке 10000 раз ищем рандомное число от 100 до 1000         $searchline=(int rand(901)+100); # строка для поиска: рандомное целое число от 100 до 1000         $_=~/$searchline/g; # ищем регекспом с продолжением поиска по строке после 1го совпадения     } } в качестве файла берётся обычный 20-меговый архив или бинарник или текстовик