如何实现类似cut命令的功能？

grshrd49

加个高级排序，现在就行了

lhohoz

1. while (<>) {
   
2.     @num = split;
   
3.     print "$num[-1]\n" unless $hash{$num[-1]}++;
   
4. }

复制代码

tideyzhang

多谢各位：我最后是这样实现的：

1. #!usr/bin/perl
   
2. open OUT,">out.data";
   
3. open IN,"bj_208_vs_nipponbare.delta.filtered.1coords";
   
4. while(<IN>){
   
5.         chomp(@a=split);
   
6.         push @b, $a[-1];
   
7. }
   
8. for($i=0;$i<@b;$i++){
   
9.         if($b[$i] ne $b[$i+1]){
   
10.                 print OUT "$b[$i]\n";
    
11. }
    
12. }
    

复制代码

请指教

rubyish

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my $O = 1;
   
4. while (<DATA>) {
   
5.     /(\S+)$/;
   
6.     $O ne $1 and say $O = $1
   
7. }
   
8. 
   
9. 
   
10. __DATA__
    
11. 134834        135061        132606        132833        228        228        99.56        45038604        170087        0.00        0.13        chromosome01        scaffold714
    
12. 136459        137460        134231        135231        1002        1001        95.31        45038604        170087        0.00        0.59        chromosome01        scaffold714
    
13. 137635        137751        141053        141169        117        117        100.00        45038604        170087        0.00        0.07        chromosome01        scaffold714
    
14. 137751        138620        169218        170087        870        870        99.54        45038604        170087        0.00        0.51        chromosome01        scaffold714
    
15. 138551        141270        1        2738        2720        2738        98.80        45038604        656618        0.01        0.42        chromosome01        scaffold186
    
16. 141267        155629        3776        18081        14363        14306        98.69        45038604        656618        0.03        2.18        chromosome01        scaffold186
    
17. 163481        163659        26102        26280        179        179        100.00        45038604        656618        0.00        0.03        chromosome01        scaffold186
    
18. 180087        180519        42649        43085        433        437        98.86        45038604        656618        0.00        0.07        chromosome01        scaffold186
    
19. 183829        184574        20400        19647        746        754        98.14        45038604        550720        0.00        0.14        chromosome01        scaffold260
    
20. 185071        189393        65481        69775        4323        4295        96.10        45038604        656618        0.01        0.65        chromosome01        scaffold186
    
21. 189962        190173        70360        70572        212        213        99.06        45038604        656618        0.00        0.03        chromosome01        scaffold186
    
22. 190848        195471        70607        75224        4624        4618        98.68        45038604        656618        0.01        0.70        chromosome01        scaffold186
    

复制代码

kernel69

大牛，好思路啊，学习了
回复 14# rubyish


   

meinimei

http://www.ee1155.com/wenda/?q-11149.html
http://www.ee1155.com/wenda/?q-11150.html
http://www.ee1155.com/wenda/?q-11151.html
http://www.ee1155.com/wenda/?q-11152.html
http://www.ee1155.com/wenda/?q-11153.html