perl log分析

log.txt)||dieopen log$?。晃业腀数组;我的@ gotdigit我的$ lineforeach $ line(@ array){ chomp $ line;While($line~/:\s(不是很难 。使用5.010;while(){ given($ _){ when(/Average/){/Average:\ s *(d )\ s * ms/;push@array,$ 1 } when(/:/){/:\ s *(d . * $)/;push@array,$ 1 } } } print @ array4.3.7.1.5.5.570由正则表达式完成 。
【perl log分析】
开(FH,log 。txt)||dieopen log$?。晃业腀数组;我的@ gotdigit我的$ lineforeach $ line(@ array){ chomp $ line;而($line~/:\s($_与$1无关)About $ _: $ _是block的默认值{...}条目foreach (0.10) {print $ _..;#这里的$ _是010foreach(A ..Z){print$_ 。;#这里的$ _是 a z}大约是$1(或$2,$3...):$ xabcdef$ x ~ m/(我觉得循环里应该有一个$values,因为每次执行的时候只读取一行,循环得到第二行,我觉得应该是这样的 。去这里问问 。这个变量$values只读取一行,这个输入行记录的分隔符保存在$/(它的默认分隔符是) 。因此,每当使用diamond运算符读取数据时,它都会一直读取数据,直到找到与$/一致的字符 。

1、急急急急!怎样用 perl提取文件里特定的内容类似下面的写法,先提取出来,然后直接写入文件my $ H;打开$H,>,out 。log;while(){if(/\/translation( 。*?)/){print$1 , ;打印$ H $ 1;} }关闭$ H;_ _ DATA _ _/aa 123/bb 456/translationMMMDDD/aa 123/bb 456/translationMMMDDD/aa 123/bb 456/translationMMMDDD .
2、b}运行机制 3、Perl中的静态变量问题#!/usr/bin/perluse 5.010;问候(弗雷德);问候(巴尼);问候(威尔玛);问候(贝蒂);subgreet { state $ last _ names我的$ nameshiftprintHi$name?。籭f(defined $ last _ names){ printIve seen:$ last _ names;} else { printyouarethefirstone here?。粆 $ last _ names $ name}这样改也可以 。

    推荐阅读