江湖救急，日志排版问题

nimysun

1. 181    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
   
2.        ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
   
3.        r : PCI resource configuration : Asserted
   
4. 180    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
   
5.        ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
   
6.        r : PCI resource configuration : Asserted

复制代码

五年多了没用perl，但是又突然要用上了，无奈记性不再。语法都记不住鸟。


问题是怎么样把上述的日志格式化成下面的格式？


181    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
       ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handler : PCI resource configuration : Asserted
180    Thu Jun 27 01:15:51 2013  IPMI      Log       minor   
       ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handler : PCI resource configuration : Asserted

mcshell

1. perl -lne 'BEGIN{$/=""};1 while(/^(\d+.*\s+.*)\s+(.*)(?{print "$1$2"})/mg)'  file.log

复制代码

raoweijian

1. #!usr/bin/perl -w
   
2. use strict;
   
3. my $control = 0;
   
4. while(<DATA>){
   
5.     chomp;
   
6.     if(/^\d/){
   
7.         $control = 1;
   
8.         print "$_\n";
   
9.         next;
   
10.     }
    
11.     if($control == 1){
    
12.         print $_;
    
13.         $control = 2;
    
14.         next;
    
15.     }
    
16.     if($control == 2){
    
17.         $_ =~ s/\s+//;            #这里用\s+匹配前面的空格，貌似用\t匹配不到
    
18.         print "$_\n";
    
19.         $control = 0;
    
20.         next;
    
21.     }
    
22. }
    
23. 
    
24. 
    
25. 
    
26. 
    
27. 
    
28. 
    
29. 
    
30. 
    
31. 
    
32. 
    
33. 
    
34. __DATA__
    
35. 181 Thu Jun 27 01:15:51 2013  IPMI      Log       minor
    
36.     ID =   b2 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
    
37.     r : PCI resource configuration : Asserted
    
38. 180 Thu Jun 27 01:15:51 2013  IPMI      Log       minor
    
39.     ID =   b1 : 06/27/2013 : 01:15:51 : System Firmware Progress : SMI Handle
    
40.     r : PCI resource configuration : Asserted
    

复制代码

raoweijian

测试通过，针对你给出的不规范的地方改规范了~~~版主大人分给我吧

grshrd49

牛逼啊！用命令行就搞定了
不过我则么妹看出来要格式化成什么呢

grshrd49

牛逼啊！用命令行就搞定了
不过我则么妹看出来要格式化成什么呢

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. undef $/;
   
6. while (my $line = <>) {
   
7.      while ($line =~ m/^(\d+\s+.*?Handle)\s+(.*?Asserted)$/gsm) {
   
8.         print "$1$2\n";
   
9.     }
   
10. }

复制代码