Perl切割日志的利器

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\n ";

}

close(FILE);

close(LOG);