Исходное сообщение
"awk быстрее perl ?" Отправлено greenwar, 11-Ноя-09 03:50
..или это я ещё совсем зелёный? есть задачка: из файла: Name: network1 Dropped packets: 15618 Dropped packets for IPv6: 27 Dropped packets: 74 Dropped packets for IPv6: 0 Failed RADIUS Authentication procedures: 0 Failed RADIUS Accounting procedures: 0 Name: network2 Dropped packets: 1117 Dropped packets for IPv6: 0 Dropped packets: 0 Dropped packets for IPv6: 0 Failed RADIUS Authentication procedures: 0 Failed RADIUS Accounting procedures: 0 сделать: network1:15618:27:74:0:0:0 network2:1117:0:0:0:0:0 файл, соот-но, увеличить до мегов 300 (я на таком тестил) банальным размножением блоков по 7 строк.. решение на awk: awk -F': *' ' { r = r ? r ":" $2 : $2 } /^Failed RADIUS Accounting procedures/{ print r; r = 0 } ' infile > outfile голову грел больше 2х часов, но максимум, чего добился, это вот такого решения на perl: #!/usr/bin/perl -w open(FH,"infile"); open(NEW,">outfile"); while(<FH>){     if(/: (network\d+?)$/){print NEW "\n$1";next}     /: (\d+)$/;print NEW ":$1" } awk отрабатывает за 29 сек, перл за 40.. как оптимизировать код на perl до такого уровня?