第一次写perl

root_man

要求:
2台web机器日志/var/log/http120080102-access.log /var/log/http220080102-accesslog
有文件/etc/test.conf 有一行 LogFile="abcdefghijklmn20080304"
取得日期$awsday = 04
如果脚本执行日期 $myday 大于 $awsday. 则
去掉两台web机器log文件里有互相访问的记录. (去掉含有 "1.2.3.4 4.3.2.1"或"4.3.2.1 1.2.3.4"的行)
然后把剩下记录写入httplog(/var/log/http_log20080*0*)
第一次写 肯定很烂
有没有高手愿意帮小弟简化或重写下  3q

1. #!/usr/bin/perl
   
2. 
   
3. open (myfile,"/etc/awstats/awstats.test.conf");
   
4. 
   
5. ($sec,$min,$hr,$day,$mon,$year)=localtime();
   
6. $mon=1+$mon;
   
7. if($day =~ /[0-9]{1}/)
   
8. {
   
9.   $myday="0".$day;
   
10. }
    
11. 
    
12. if( $mon =~ /[0-9]{1}/ )
    
13. {
    
14.   $mymon="0".$mon;
    
15. }
    
16. 
    
17. $myyear=1900+$year;
    
18. while($awsday=<myfile>)
    
19. {
    
20.   if ($awsday =~ s/(^LogFile.*)([0-9]{6})([0-9]{2})(\")/$3/sg)
    
21.   {
    
22.     $nextday=$awsday+1;
    
23.     if ( $nextday =~ /[0-9]{1} )
    
24.     {
    
25.       $nextday="0".$nextday;
    
26.     }
    
27.     while ( $myday >= $nextday )
    
28.     {
    
29.       if ( !-e "/var/log/http1$myyear-$mymon-$nextday-access.log" )
    
30.       {
    
31.         print "log file http1$myyear-$mymon-$nextday-access.log not exist";
    
32.         exit;
    
33.       }
    
34. 
    
35.       if ( !-e "/var/log/http2$myyear-$mymon-$nextday-access.log" )
    
36.       {
    
37.         print "log file http2$myyear-$mymon-$nextday-access.log not exist";
    
38.         exit;
    
39.       }
    
40.       open (1file,"/var/log/http1$myyear-$mymon-$nextday-access.log ");
    
41.       open (2file,"/var/log/http2$myyear-$mymon-$nextday-access.log ");
    
42.       open (httplog,"<</var/log/http_log$myyear$mymon$nextday"
    
43.       while( $file1=<1file> )
    
44.       {
    
45.         if ( !$file1 =~ /1.2.3.4 4.3.2.1/ && !$file1 =~ /4.3.2.1 1.2.3.4/ )
    
46.         {
    
47.           print httplog $file1;
    
48.         }
    
49.       }
    
50.       while( $file2=<2file> )
    
51.       {
    
52.         if ( !$file2 =~ /1.2.3.4 4.3.2.1/ && !$file2 =~ /4.3.2.1 1.2.3.4/ )
    
53.         {
    
54.           print httplog $file2;
    
55.         }
    
56.       }
    
57.       close 1file;
    
58.       close 2file;
    
59.       close httplog;
    
60.     }
    
61.   }
    
62.   exit;
    
63. }
    
64. close myfile;

复制代码

[ 本帖最后由 root_man 于 2008-5-6 18:55 编辑 ]

cobrawgl

不知道这样是不是符合你的要求

#!/usr/bin/perl use strict; use warnings; my $conf_file = '/etc/awstats/awstats.test.conf'; open CONF, "<$conf_file" &nbsp;&nbsp;&nbsp;&nbsp;or die "Can not open $conf_file: $!\n"; my @time = localtime; my $day  = $time[3] + 1; my $mon  = $time[4] + 1; my $year = $time[5] + 1900; while (<CONF>) { &nbsp;&nbsp;&nbsp;&nbsp;chomp; &nbsp;&nbsp;&nbsp;&nbsp;my $awsday = $1 if /^LogFile\D*\d{6}(\d+)/; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;if ($day >= $awsday) { &nbsp;&nbsp;&nbsp;&nbsp;    my $log_file1 = sprintf "%s%d%02d%02d%s", "/var/log/http1", $year, $mon, $awsday, "-access.log"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $log_file2 = sprintf "%s%d%02d%02d%s", "/var/log/http2", $year, $mon, $awsday, "-access.log"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $httplog = sprintf "%s%d%02d%02d", "/var/log/http_log", $year, $mon, $awsday; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open LOG1, "<$log_file1" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    or die "Can not open $log_file1: $!\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open LOG2, "<$log_file2" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    or die "Can not open $log_file2: $!\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open HTTP_LOG, ">>$httplog" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    or die "Can not open $httplog: $!\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while (<LOG1>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    next if /1.2.3.4 4.3.2.1/; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next if /4.3.2.1 1.2.3.4/; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print HTTP_LOG; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while (<LOG2>) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    next if /1.2.3.4 4.3.2.1/; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next if /4.3.2.1 1.2.3.4/; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print HTTP_LOG; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;} }

[ 本帖最后由 cobrawgl 于 2008-5-6 20:16 编辑 ]

root_man

good
thanks