干嘛非得要绑死一门语言

看看perl写出来的代码，累计学习时间不超过1周之后写的分析日志的代码：

my %hs; 
while(<>) {
         if (/(/d{4}-/d{2}-/d{2} /d{2}:/d{2}:/d{2}) @/)
         { 
         #               print $1."/n";                 
               $hs{$1} += 1;         
         } 
} 

foreach $key(sort keys %hs) {
         $value = $hs{$key};
         print "$key => $value/n"; 
}

分析日志中有一行类似于：
[12212]2008-07-09 18:29:18 @ 1301 2000 200804 102421122 300100 2008-06-30 17:10:18 <record> 的记录，取得它，然后分析每秒有多少记录。用C、java写的话，估计的累死。 多学习几种语言，不做多头、不做空头，我们做滑头