大佬们，小弟求助，进来看看吧

wh7211

回复 1# gobuhei

1. awk 'BEGIN{FS="[,-]";OFS=","}NR>1{d2=mktime(""$3" "$4" "$5" 00 00 00");if(a==$1&&b==$2&&(d2-d1)/86400>=0&&(d2-d1)/86400<=31){c2=$3"-"$4"-"$5;d1=d2}else{if(a){print a,b,c,c2};a=$1;b=$2;c=$3"-"$4"-"$5;d1=mktime(""$3" "$4" "$5" 00 00 00");c2=c}}END{print a,b,c,c2}' file

复制代码

gobuhei

回复 11# wh7211

让我觉得awk很强大，答主很牛。

moperyblue

1. echo 'AAAA，XX公司，2011-01-01
   
2. AAAA，XX公司，2011-02-01
   
3. AAAA，XX公司，2011-03-01
   
4. AAAA，YY公司，2011-04-01'|awk -F'，' '{print (s&&s!=$1$2?"@"RS:"") $0}{s=$1$2}' | awk '{split($NF,a,"，");print $1"，"a[3]}' RS=@

复制代码

1. AAAA，XX公司，2011-01-01，2011-03-01
   
2. AAAA，YY公司，2011-04-01，2011-04-01

复制代码

?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use Encode qw(encode);
   
6. 
   
7. my ($k, $sp) = ('', '，');
   
8. my @rec = ();
   
9. while(<DATA>){
   
10.         my $kk = substr($_, 0, rindex($_, $sp));
    
11.         chomp(my @ary = split(/$sp/));
    
12.         if($kk !~ /$k/){
    
13.                 print(encode('gb2312', join($sp, @{$rec[0]}, $rec[-1][-1])), "\n");
    
14.                 @rec = ();
    
15.         }
    
16.         $k = $kk;
    
17.         push(@rec, [@ary]);
    
18. }
    
19. print(encode('gb2312', join($sp, @{$rec[0]}, $rec[-1][-1])), "\n");
    
20. 
    
21. __DATA__
    
22. AAAA，XX公司，2011-01-01
    
23. AAAA，XX公司，2011-02-01
    
24. AAAA，XX公司，2011-03-01
    
25. AAAA，YY公司，2011-04-01
    
26. AAAA，YY公司，2011-05-01
    
27. AAAA，YY公司，2011-06-01
    
28. AAAA，YY公司，2011-07-01
    
29. BBBB，XX公司，2012-01-01
    
30. BBBB，XX公司，2012-02-01
    
31. BBBB，XX公司，2012-03-01
    
32. AAAA，XX公司，2011-08-01
    
33. AAAA，XX公司，2011-09-01
    
34. AAAA，XX公司，2011-10-01
    

复制代码

chengchow

1. [root@iZuf62sazcxqandkv55wyjZ tmp]# awk -F'，' 'NR==1{a=$1$2;b=$3;printf $0};NR!=1{if(a!=$1$2){printf " "b"\n"$0;a=$1$2;b=$3}}END{print " "b}' aa.log
   
2. AAAA，XX公司，2011-01-01 2011-01-01
   
3. AAAA，YY公司，2011-04-01 2011-04-01
   
4. BBBB，XX公司，2012-01-01 2012-01-01
   
5. AAAA，XX公司，2011-08-01 2011-08-01

复制代码