我写的记录log的sub，太丑了，谁能写个简洁的？

cups_book

1. sub LogNor {       
   
2.         my $nor_log_path = "D:\\perl_test\\arc_zip\\";
   
3.         my $year = strftime "%Y", localtime;
   
4.         my $mont = strftime "%m", localtime;
   
5.         my $day = strftime "%d", localtime;
   
6.         my $temp_path = "";
   
7. 
   
8.         $temp_path = $nor_log_path.$year;
   
9. 
   
10.         if (-e $temp_path){
    
11. 
    
12.                 } else {
    
13.                         eval{mkdir($temp_path)};
    
14.                 }
    
15. 
    
16.         $temp_path = $nor_log_path.$year."\\".$year."-".$mont;
    
17.         if (-e $temp_path) {
    
18. 
    
19.                 } else {
    
20.                         eval{mkdir($temp_path)};
    
21.                         if($@) {   
    
22.                                
    
23.                         }
    
24.                 }
    
25.         $temp_path = $nor_log_path.$year."\\".$year."-".$mont."\\".$year."-".$mont."-".$day;
    
26.         if (-e $temp_path){
    
27. 
    
28.                 } else {                       
    
29.                         eval{mkdir($temp_path)};
    
30.                 }
    
31. 
    
32.         my $today = strftime "%Y-%m-%d", localtime;
    
33.                
    
34.         my $time_stmp = strftime "[%Y-%m-%d %H:%M:%S]", localtime;
    
35.         open(OUTFILE, ">>".$temp_path."\\".$today.".log");
    
36.             print OUTFILE ("$time_stmp".(@_)[0] ."\n");
    
37.         close OUTFILE;
    
38. }

复制代码

stanley_tam

推荐下个perltidy模块，可以用来整理一下代码。
稍微改了一下你的函数{:3_193:}

1. sub LogNor {
   
2.     my $string = shift || q{};
   
3.     use File::Path qw{ make_path };
   
4.     use File::Spec;
   
5. 
   
6.     my $nor_log_path = 'D:\perl_test\arc_zip';
   
7.     my ($year, $mont, $day)= split /-/, strftime '%Y-%m-%d', localtime;
   
8. 
   
9.     my $temp_path = File::Spec->catfile(
   
10.         $nor_log_path, $year, "$year-$mont", "$year-$mont-$day"
    
11.     );
    
12. 
    
13.     # make the dirs or keep silent
    
14.     eval{ make_path $temp_path };
    
15. 
    
16.     my $today = "$year-$mont-$day";
    
17.     my $time_stmp = strftime '[%Y-%m-%d %H:%M:%S]', localtime;
    
18. 
    
19.     open my $output_fh, '>>', File::Spec->catfile($temp_path, "$today.log");
    
20.     if ($output_fh) {
    
21.         print {$output_fh} "$time_stmp $string\n";
    
22.         close $output_fh;
    
23.     }
    
24. }

复制代码

txh_zyy

建议你还是用一些日志模块吧，例如 Log::Minimal

xfilesliuli

my $dir="temp/xxx/abc/2013/08/30";
system("mkdir -p $dir");

用系统调用的mkdir替换你那一连串的if，mkdir即可缩短大半。。

xfilesliuli

回复 3# xfilesliuli

没注意是windows，换成md ，-p都不用了


   

rubyish

也试试:

1. 
   
2. sub LOG {
   
3.     my ( $LD, @LT ) = ( "/tmp/LOG/", localtime );
   
4.     my ( $Y, $M, $D, $Td, $St ) = map { strftime $_, @LT }
   
5.       "%Y", "%m", "%d", "%Y-%m-%d", "[%Y-%m-%d %H:%M:%S]";
   
6.     my @DIR = map $a = $a .= $_, "$LD$Y", "/$Y-$M", "/$Y-$M-$D";
   
7.     -e or eval { mkdir } for @DIR;
   
8.     open F, '>>', "$DIR[-1]/$Td.log";
   
9.     print F "$St$_[0]\n";
   
10.     close F;
    
11. }
    

复制代码