Perl切割日志的利器

用了过awk,python,perl都切过日志，还是感觉perl是切日志的高手，执行效率高，功能也足够强大。下面是一个小例子：open（FILE,"/data/ebi/meta/log"）;
open（CONF,"/data/ebi/conf/urltype.txt"）;
open（LOG,">/data/ebi/meta/log_2"）;
@array1=（）;
while（<CONF>） {
         chomp;
         @array2 = split（/,/, $_）;
         if（scalar（@array2）>=6）{
                push @array1,[@array2];
         }
}close（CONF）;
while（<FILE>）
{
chomp;
my （$suv,$times,$ip,$url,$refer,$type1） = split（/s+/, $_）;
$type=$type1;
my （undef,undef,$site） = split（///, $url）;
if（$urlsitemap{$url}）{
         $site = $urlsitemap{$url}[0];
         $prod = $urlsitemap{$url}[1];
         $fun = $urlsitemap{$url}[2];
}
else{
          for $i （0 .. $#array1）{
                $regx = @{$array1[$i]}[1];
                if（$url=~/$regx/）{
                        $site = @{$array1[$i]}[2];
                        $prod = @{$array1[$i]}[3];
                        $fun = @{$array1[$i]}[4];
                        $urlsitemap{$url}=[$site,$prod,$fun];
                        last;
                }
          }
}
print LOG "$site $suv $ip $url $refer,$type ";}close（FILE）;
close（LOG）;