Исходное сообщение
"awk быстрее perl ?" Отправлено ACCA, 11-Ноя-09 07:27
>..или это я ещё совсем зелёный? Кокетничаешь. Можно выжать разве что ещё пяток процентов по мелочи типа #!/usr/bin/perl -w while(<>){     if(/: (network\d+)/){print "\n$1";next}     /: (\d+)/;print ":$1" } - нет $ в конце regexp и \d+ вместо \d+?. А вот времена на 400M файле совсем даже обратные: $ time ./counter.pl datafile.txt > /dev/null real    0m26.809s user    0m26.510s sys    0m0.290s $ time awk -F': *' ' { r = r ? r ":" $2 : $2 } /^Failed RADIUS Accounting procedures/{ print r; r = 0 }' datafile.txt > /dev/null real    0m54.194s user    0m53.950s sys    0m0.240s $ uname -a Linux hostname 2.6.31-14-generic #48-Ubuntu SMP Fri Oct 16 14:05:01 UTC 2009 x86_64 GNU/Linux $ awk --version GNU Awk 3.1.6 $ perl --version This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi Если время обработки настолько критично, я бы не постеснялся написать на C.