日志分析-第一步

#cat conf.log

Apr 1 16:23:45 172.16.2.2 2009 Quidway SHELL/6/CLI:show running'

#!/usr/bin/perl

$str = `cat conf.log`;
chomp $str;
if($str =~/\/(\d)\//)
{
print "The levle is ".$1."\n";
}