文本处理

jningpupil

有几列数据，比如     1  1.2  2.3  3.4
                           1  1.3  2.1  3.5
                           2  1.3  2.3  3.4
                           ......
现在要加上一些序号，变成如下形式
                           1  1:1.2  2:2.3  3:3.4
                           1  1:1.3  2:2.1  3:3.5
                           2  1:1.3  2:2.3  3:3.4
                           ......

即在第二列及以后的数据加上索引，这个在awk或者perl里面如何实现？

wand65

结果是可以出来的，貌似程序很丑。。。

1. while(<DATA>){
   
2. if ($_=~s/\s(\d.\d)\s+(\d.\d)\s+(\d.\d)/1:$1 2:$2 3:$3/){
   
3.         print;
   
4. }
   
5.         }
   
6. 
   
7. __DATA__  
   
8.   1  1.2  2.3  3.4                        
   
9.   1  1.3  2.1  3.5
   
10.   2  1.3  2.3  3.4

复制代码

doufu300

初学perl，写的有点繁琐

1. while (<DATA>) {
   
2.         @rr=split;
   
3.         foreach $i (0 .. $#rr){
   
4.                 if ($i == 0){
   
5.                         $rr[0].=" ";
   
6.                         push @e,"$rr[0]";
   
7. 
   
8.                 }
   
9.                 else{
   
10.                         $rr[$i]="$i:$rr[$i]";
    
11.                         $rr[$i].=" ";
    
12.                         push @e,$rr[$i];
    
13.                 }
    
14. #               $rr[$#rr].=" ";
    
15. 
    
16.         }
    
17.         push @e,"\n";
    
18. }
    
19. print @e;
    
20. __DATA__
    
21. 1 1.2 2.3 3.4
    
22. 1 1.3 2.1 3.5
    
23. 2 1.3 2.3 3.4

复制代码

pitonas

{:2_172:}

1. my $space = "  ";
   
2. while (<DATA>) {
   
3.     my @line = split;
   
4.     $line[$_] = "$_:$line[$_]" for 1 .. $#line;
   
5.     print join( $space, @line ), "\n";
   
6. }
   
7. 
   
8. __DATA__  
   
9. 1  1.2  2.3  3.4 4.5 5.1 6.4 7.1
   
10. 1  1.3  2.1  3.5 4.6 5.2 6.2 7.2
    
11. 2  1.3  2.3  3.4 4.2 5.3 6.9 7.9

复制代码

回复 1# jningpupil


   

yinyuemi

回复 1# jningpupil

1. perl -pe '$i=0;s/(?<=\s)(\S)(?{$i++})/$i:$1/g'

复制代码

kernel69

1. $ cat a
   
2. 1  1.2  2.3  3.4  2.2
   
3. 1  1.3  2.1  3.5  2.2
   
4. 2  1.3  2.3  3.4  2.2
   
5. $ perl -ane '@F[$#F].="\n";print join "  ",$F[0],map{"$_:"."$F[$_]"} 1..$#F' a
   
6. 1  1:1.2  2:2.3  3:3.4  4:2.2
   
7. 1  1:1.3  2:2.1  3:3.5  4:2.2
   
8. 2  1:1.3  2:2.3  3:3.4  4:2.2
   
9. $

复制代码

回复 1# jningpupil


   

kernel69

顶一个
回复 5# yinyuemi


   

yestreenstars

1. [root@localhost ~]# cat i
   
2. 1  1.2  2.3  3.4
   
3. 1  1.3  2.1  3.5
   
4. 2  1.3  2.3  3.4
   
5. [root@localhost ~]# awk '{for(i=1;++i<=NF;)$i=(i-1)":"$i}1' i
   
6. 1 1:1.2 2:2.3 3:3.4
   
7. 1 1:1.3 2:2.1 3:3.5
   
8. 2 1:1.3 2:2.3 3:3.4
   
9. [root@localhost ~]# perl -lane 'print join " ",$F[0],map {$_.":".$F[$_]} 1..$#F' i
   
10. 1 1:1.2 2:2.3 3:3.4
    
11. 1 1:1.3 2:2.1 3:3.5
    
12. 2 1:1.3 2:2.3 3:3.4
    
13. [root@localhost ~]#

复制代码

rubyish

回复 5# yinyuemi

1. perl -pe '$i=0;s/(?<=\s)(\S)(?{$i++})/$i:$1/g'

复制代码

学习了！
   

364816318

回复 1# jningpupil