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,$typen?";

}

close(FILE);

close(LOG);