perl或awk求解合并行问题

heroinhell

输入文件：
cat  a.txt:
4056 78
4056 198
7717 98
7717 218
7718 98
7718 218
7719 98
7719 99
7719 218
7719 219
7720 98
7720 99
7720 218
7720 219
7720 220

输出：
4056   78,198
7717    98,218
7718    98,218
7719    98-99，218-219
7720    98-99，218-220


即：
第一列是索引号，第二列是一个数组，如果数组的值是连续的，应该用连字符来连接，如果不连续，需要用逗号来连接

感觉用perl实现方便一点，但是在数据存储上总有问题，应该是 hash-数组结构，求高人解答，AWK也可。

heroinhell

自己写完了，但感觉很笨，尤其是数组存储那一块，其实我是想把hash的值直接指向一个数组，没成功，大侠们看看，有没有更灵巧一点的方法。
#!/usr/bin/perl
open(FO,ED_sw0 || die "cannot open file  \n";
while(<FO>
{
  chomp;
  if($_=~/^[0-9]/)
  {
   @data=split(/\s+/,$_);
   $current_shot=$data[0];
   $chan=$data[1];
   $dat=$data[1];
   $all{$current_shot}{$chan}=$dat;
   #print "$seq\n";
   #print  $current_line."\n";
  }
}
close(FO);


for  $mmm (sort {$a<=>$b} keys %all)
{
    print "shot is  ".$mmm."   ";
    @temp=();
    for $nnn (sort {$a<=>$b} keys %{$all{$mmm}})
    {
        #print  $all{$mmm}{$nnn}.",";      
        push (@temp, $all{$mmm}{$nnn});
    }
    for($i=0;$i<@temp;$i++)
    {
       if($i==0 && ($temp[$i+1] -$temp[$i]>1))
       {
          print $temp[$i].",";
       }
       elsif($i==0 &&  ($temp[$i+1] -$temp[$i]==1)  )
       {
          print  $temp[$i];
       }
       elsif($i!=(@temp-1) && ($temp[$i+1]-$temp[$i]>1) && ($temp[$i]-$temp[$i-1]==1)          )
       {
         print "-".$temp[$i].",";
       }
       elsif($i!=(@temp-1) && ($temp[$i+1]-$temp[$i]>1) && ($temp[$i]-$temp[$i-1]>1)          )
       {
          print $temp[$i].",";
       }
       elsif($i!=(@temp-1) && ($temp[$i+1]-$temp[$i]==1) && ($temp[$i]-$temp[$i-1]>1)          )
       {
         print $temp[$i];
       }
       elsif($i!=(@temp-1) && ($temp[$i+1]-$temp[$i]==1) && ($temp[$i]-$temp[$i-1]==1)          )
       {
           #not print
       }
       elsif($i==(@temp-1) && ($temp[$i]-$temp[$i-1]==1)          )
       {
          print "-".$temp[$i];
       }
       elsif($i==(@temp-1) && ($temp[$i]-$temp[$i-1]>1)          )
       {
          print $temp[$i];
       }
    }
    print  "\n";
}

rpbear

我决定shell一下

1. 
   
2. #! /bin/bash
   
3. 
   
4. declare -i c
   
5. declare -i d
   
6. declare -i t
   
7. declare -i n
   
8. declare -i save1
   
9. declare -i save2
   
10. declare -i first
    
11. 
    
12. echo 0 0 >> a.txt
    
13. {
    
14.         read a b
    
15.         save1="$a"
    
16.         save2="$b"
    
17.         first="$b"
    
18.         printf "%d  " $save1
    
19.         while read c d;do
    
20.                 let "t=d-1"
    
21.                 if [ "$save1" -eq "$c" -a "$t" -eq "$save2" ];then
    
22.                         save2="$d"
    
23.                         continue
    
24.                 elif [ "$save1" -ne "$c" ];then
    
25.                         if [ "$first" -ne "$save2" ];then
    
26.                                 printf " %d-%d"  $first $save2
    
27.                         else
    
28.                                 printf ",%d" $save2
    
29.                         fi
    
30.                         printf "\n%d  " $c
    
31.                         save1="$c"
    
32.                         save2="$d"
    
33.                         first="$d"
    
34.                         continue
    
35.                 elif [ "$save1" -eq "$c" -a "$t" -ne "$save2" ];then
    
36.                         if [ "$first" -ne "$save2" ];then
    
37.                                 printf "%d-%d" $first $save2
    
38.                         else
    
39.                                 printf "%d" $save2
    
40.                         fi
    
41.                         first="$d"
    
42.                         save2="$d"       
    
43.                 fi                       
    
44.         done
    
45. } < a.txt >> b.txt
    
46. n=`wc -l b.txt | cut -d " " -f1`
    
47. n=$n-1
    
48. head -n $n  b.txt
    

复制代码

cjaizss

整个awk的

1. 
   
2. #!/bin/gawk -f
   
3. NF==2 {
   
4.         a[$1]=a[$1]" "$2;
   
5. }
   
6. END {
   
7.         for(i in a)
   
8.                 b[i]=int(i);
   
9.         x=asort(b);
   
10.         for(i=1;i<=x;i++) {
    
11.                 $0=a[b[i]];
    
12.                 delete c;
    
13.                 for(j=1;j<=NF;j++)
    
14.                         c[j]=int($j);
    
15.                 asort(c);
    
16.                 printf("%d\t",b[i]);
    
17.                 printf("%d",c[1]);
    
18.                 start=c[1];
    
19.                 cur=c[1];
    
20.                 for(j=2;j<=NF;j++) {
    
21.                         if(c[j]==cur+1) {
    
22.                                 cur=c[j];
    
23.                                 continue;
    
24.                         }
    
25.                         if(start!=cur)
    
26.                                 printf("-%d",cur);
    
27.                         printf(",%d",c[j]);
    
28.                         start=cur=c[j];
    
29.                 }
    
30.                 if(start!=cur)
    
31.                         printf("-%d",cur);
    
32.                 printf("\n");
    
33.         }
    
34. }
    
35. 
    

复制代码

换了个变量名字，名字取的太傻了

1. 
   
2. linux-0gt0:~ # cat 1
   
3. 4056 78
   
4. 4056 198
   
5. 7717 98
   
6. 7717 218
   
7. 7718 98
   
8. 7718 218
   
9. 7719 98
   
10. 7719 99
    
11. 7719 218
    
12. 7719 219
    
13. 7720 98
    
14. 7720 99
    
15. 7720 218
    
16. 7720 219
    
17. 7720 220
    
18. 
    
19. linux-0gt0:~ # ./1.awk 1
    
20. 4056    78,198
    
21. 7717    98,218
    
22. 7718    98,218
    
23. 7719    98-99,218-219
    
24. 7720    98-99,218-220
    

复制代码

小鹭

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. open(FILE,"a.txt") or die("$!");
   
5. @unsorted=<FILE>;
   
6. close(FILE);
   
7. 
   
8. ### 先按照列1，列2排序, 然后得到hash数据
   
9. @sorted = map {$_->[0]}
   
10.           sort { $a->[1] <=> $b->[1]  or
    
11.                  $a->[2] <=> $b->[2]
    
12.                 }
    
13.           map {[$_, (split(/\s+/))[0], (split(/\s+/))[1] ]} @unsorted;
    
14. 
    
15. map {($a,$b)=split(/\s+/); $aggr{$a}.=$b . " "} @sorted;
    
16. 
    
17. ### 重点是对组合的结果按照需求进一步处理
    
18. 
    
19. foreach (keys %aggr) {
    
20.     @out=split(/\s+/,$aggr{$_});
    
21.     $str="";
    
22. 
    
23.     for ($i=0; $i<scalar(@out); $i++) {
    
24.        if ($out[$i+1] == $out[$i] + 1) {
    
25.             $out[$i] .= "-";
    
26.    
    
27.        } else {
    
28.            $out[$i].= ",";
    
29.        }
    
30.        $str .= $out[$i];
    
31.     }
    
32.    
    
33.     @tmp=split(/,+/,$str);
    
34.     map {$_=~s/-.*-/-/g;} @tmp;
    
35.     $str=join(",",@tmp);
    
36. 
    
37.     print "$_ $str\n";
    
38. }
    

复制代码

4056    78,198
7717    98,218
7718    98,218
7719    98-99,218-219
7720    98-99,218-220

tangzongyao1f7c

这里 sam 就是 a.txt
未优化。

awk '{print $1}' sam | sort -u | while read line; do
        grep "^$line" sam | awk '{print $2}' | sort -n | awk -v B=$line 'BEGIN {b=0}
                {       if(af==0)
                        {       b=$1
                                last=$1
                                af=1
                                printf("%d      ",B)
                        }
                        else if(af==1)
                        {       if($1 != last+1)
                                {        if(b==last)
                                                printf("%d, ",b)
                                        else    printf("%d-%d, ",b, last)
                                        b=$1
                                        last=$1
                                }
                                else    last=$1
                        }
                }END{   if(b==last)
                                printf("%d",b)
                        else    printf("%d-%d",b, last)
                        printf("\n")
                }'
done
exit

ly5066113

1. perl -lane 'chomp;if($F[0]!=$m){$s=~s/(?<=\d)-\d+(?=-)//g;print $s;$s=$_}else{if($F[1]==$n+1){$s.="-$F[1]"}else{$s.=",$F[1]"}};$m=$F[0];$n=$F[1];END{$s=~s/(?<=\d)-\d+(?=-)//g;print $s}' a.txt

复制代码

昭襄王

练习一下perl

1. #! /usr/bin/perl
   
2. #pl028
   
3. open(FILE , "lines007");
   
4. chomp(@lines = <FILE>);
   
5. for (@lines){
   
6.   @c = split /\s+/;
   
7.   if ($pre + 1 == $c[1]){
   
8.     $hash{$c[0]} .= "-$c[1]";
   
9.   }else{
   
10.     $hash{$c[0]} .= ",$c[1]";
    
11.   }
    
12.   $pre = $c[1];
    
13. }
    
14. for $key (keys %hash) {
    
15.   $hash{$key}=~s/-\d*-/-/g;
    
16.   $hash{$key}=~s/^,//;
    
17.   print "$key\t$hash{$key}\n";
    
18. }

复制代码

./pl028
7718    98,218
7717    98,218
7720    98-99,218-220
4056    78,198
7719    98-99,218-219

ly5066113

回复 9# 昭襄王

$hash{$key}=~s/-\d*-/-/g;
这个有点问题，把连续的数字多加几个试试看：

7720 218
7720 219
7720 220
7720 221
7720 222
7720 223

昭襄王

回复 11# ly5066113


    还是TIM兄想的周全，改了一下
$hash{$key}=~s/-[0-9\-]*-/-/g;

1. #! /usr/bin/perl
   
2. #pl028
   
3. open(FILE , "lines007");
   
4. chomp(@lines = <FILE>);
   
5. for (@lines){
   
6.   @c = split /\s+/;
   
7.   if ($pre + 1 == $c[1]){
   
8.     $hash{$c[0]} .= "-$c[1]";
   
9.   }else{
   
10.     $hash{$c[0]} .= ",$c[1]";
    
11.   }
    
12.   $pre = $c[1];
    
13. }
    
14. for $key (keys %hash) {
    
15.   $hash{$key}=~s/-[0-9\-]*-/-/g;
    
16.   $hash{$key}=~s/^,//;
    
17.   print "$key\t$hash{$key}\n";
    
18. }

复制代码