..или это я ещё совсем зелёный?есть задачка:
из файла:
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 до такого уровня?