请教：以某列值为关键字，将相同值排序的行按规则合并为一行

aixabc

文件test内容：
1  testa 07112012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
2  testb 07112012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
3  testa 07122012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
4  testb 07122012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。     
5  testa 07112012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
6  testb 07112012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
7  testa 07122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
8  testb 07122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。

第三列含义为： mmddyyyy

要做的操作：
以第二列主机名为关键字， 将相同主机名、不同日期和不同错误代码的行合并为一行

预期的结果是：
testa  7月11日，7月12日 报ERROR CODE A，ERROR CODE B  #因测试所致， 对应用没有影响，可以忽略。
testb  7月11日，7月12日 报ERROR CODE A，ERROR CODE B  #因测试所致， 对应用没有影响，可以忽略。

rdcwayx

你预期的结果似乎缺少逻辑，就算按照你的要求给出这个报告，看报告的人也会看糊涂的。

aixabc

回复 2# rdcwayx


我的预期的逻辑是：
将相同主机名 在不同日期报的不同错误代码的多行合并为一行，后面的注释行取任意错误代码的注释都行。
合并后的格式： 主机1  日期1,日期2,..  报错误代码1，错误代码2 .. #注释

不知解释清楚了没有， 谢谢版主的回复。

rdcwayx

1. 报错误代码1 是否要和日期1 一一对应上？还是只要列出该服务器的错误代码列表即可，这样的话，为何不是这样的格式：

主机1  日期1,报错误代码1， 日期2, 错误代码2， 日期3,报错误代码3，

还是 （比如日期3 的错误代码和日期1的相同）

主机1  日期1, 日期2, 日期3，报错误代码1，错误代码2

2. 一天内有多种错误代码如何表述。
3. 后面的注释既然无用，何必输出。
4. 还有，该源文件的记录都是错误代码 （error code） ？是否还会有其他格式的记录出现？

mcshell

回复 1# aixabc
这样？  我多添加了一行做了下测试

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. my $date;
   
6. my %tmp;
   
7. map{
   
8. my $group=$_->[2]." ".$_->[3]." ".$_->[4];
   
9. push @{$hash{$_->[0]}},conver_date($_->[1]),$group;
   
10. }map{[(split/\s+/,$_,7)[1,2,3,4,5]]}<DATA>;
    
11. map{
    
12. $date=$_;
    
13. #push @{$hash{$date}},@{$hash{$_}}[0]++;
    
14. print "$_\t";
    
15. foreach (@{$hash{$date}}){
    
16. $tmp{$_}++;
    
17. 
    
18. }
    
19. print "$_," for sort keys %tmp;
    
20. print "#因测试所致， 对应用没有影响，可以忽略\n";
    
21. }( keys %hash);
    
22. sub   conver_date{
    
23.         my $date = shift;
    
24.         my $month;
    
25.         my $day;
    
26.         if ($date =~ /(\d)(\d)(\d)(\d)\d{4}$/){
    
27.         my      $month_1 = $1;
    
28.          my        $day_1 = $3;
    
29.          $month=$month_1 ? "$1$2": $2 ;
    
30.          $day=$day_1 ? "$3$4" : $4;
    
31.         }
    
32.         return $month."月".$day."日";
    
33. }
    
34. 
    
35. __DATA__
    
36. 1  testa 07112012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
    
37. 2  testb 07112012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
    
38. 3  testa 07122012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
    
39. 4  testb 07122012 ERROR CODE A  #因测试所致， 对应用没有影响，可以忽略。
    
40. 5  testa 07112012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
    
41. 6  testb 07112012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
    
42. 7  testa 07122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
    
43. 8  testb 07122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
    
44. 9  testc 08122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。
    
45. 9  testc 12122012 ERROR CODE B  #因更改测试参数所致， 对应用没有影响，可以忽略。

复制代码

1. [root@elastix perl]# perl cu_hb9.pl
   
2. testb   7月11日,7月12日,ERROR CODE A,ERROR CODE B,#因测试所致， 对应用没有影响，可以忽略
   
3. testa   7月11日,7月12日,ERROR CODE A,ERROR CODE B,#因测试所致， 对应用没有影响，可以忽略
   
4. testc   12月12日,7月11日,7月12日,8月12日,ERROR CODE A,ERROR CODE B,#因测试所致， 对应用没有影响，可以忽略
   

复制代码