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

tideyzhang

如下，获得一段文件：

134834        135061        132606        132833        228        228        99.56        45038604        170087        0.00        0.13        chromosome01        scaffold714
136459        137460        134231        135231        1002        1001        95.31        45038604        170087        0.00        0.59        chromosome01        scaffold714
137635        137751        141053        141169        117        117        100.00        45038604        170087        0.00        0.07        chromosome01        scaffold714
137751        138620        169218        170087        870        870        99.54        45038604        170087        0.00        0.51        chromosome01        scaffold714
138551        141270        1        2738        2720        2738        98.80        45038604        656618        0.01        0.42        chromosome01        scaffold186
141267        155629        3776        18081        14363        14306        98.69        45038604        656618        0.03        2.18        chromosome01        scaffold186
163481        163659        26102        26280        179        179        100.00        45038604        656618        0.00        0.03        chromosome01        scaffold186
180087        180519        42649        43085        433        437        98.86        45038604        656618        0.00        0.07        chromosome01        scaffold186
183829        184574        20400        19647        746        754        98.14        45038604        550720        0.00        0.14        chromosome01        scaffold260
185071        189393        65481        69775        4323        4295        96.10        45038604        656618        0.01        0.65        chromosome01        scaffold186
189962        190173        70360        70572        212        213        99.06        45038604        656618        0.00        0.03        chromosome01        scaffold186
190848        195471        70607        75224        4624        4618        98.68        45038604        656618        0.01        0.70        chromosome01        scaffold186

如何用Perl实现取出每行最后一段字符串，并去掉重复，最终输出到文件？知道用管线命令可以实现，但怎样用perl呢？多谢指教！！！

grshrd49

open II,"in.txt";
open OO."out.txt";
while(<II>){
@aa = split;
$hash{$aa[$#aa]}=1;
}
print OO "$_\n" for(sort {$a<=>$b} keys %hash);

cinanine

1. perl -lne 'print $1 if !@U{/(\S+)$/}++' data > new

复制代码

tideyzhang

回复 2# grshrd49

回复 3# cinanine


    多谢两位，受教啦！

tideyzhang

回复 2# grshrd49
但是这样并没有去掉重复？


   

tideyzhang

追加：如上的文本要求最终输出
scaffold714
scaffold168
scaffold260
scaffold168

grshrd49

回复 6# tideyzhang


加了hash，现在就去重了

grshrd49

回复 6# tideyzhang


现在加了hash 就去重了

tideyzhang

回复 8# grshrd49

确实可以去重，但不能保证顺序，并且是全部的重复都去掉了，要求的是根据上下文来确定，可以出现上下形式是ABACB等，只要不出现AABBB这样的连续就行了


   

yinyuemi

回复 1# tideyzhang

1. perl -anle '$l=$F[$#F]; undef %h if ! exists $h{$l}; print $l if ! $h{$l}++'

复制代码