in reply to Scanning Log Files
#!/usr/bin/perl use strict; my (@df_suu, @d_mysql_suu); while (<DATA>) { push( @df_suu, $1 ) if ( /^processed.*df_suu=(\d+)/ ); push( @d_mysql_suu, $1 ) if ( /^processed.*d_mysql_suu=(\d+)/ ); } print "Last df_suu = " . $df_suu[-1] . "\n"; print "Last d_mysql_suu = " . $d_mysql_suu[-1] . "\n"; __DATA__ processed='destination(df_suu=12345671' test1 processed='destination(d_mysql_suu=12345671' test2 processed='destination(df_suu=12345672' test3 test4 processed='destination(d_mysql_suu=12345672'
|
|---|