对文件最后一列排序

junlingpang

有一个文件以tab分隔，每一行的长度不等，现在我想对文件按最后一列（也就是每一行的最后一个字符串）排序，怎么操作啊？
开始想用sort来着，但是没找到合适的参数。。。
请大侠们指教

举个简单的例子：
file1：
am    am    am    am    about
am    am    am    up
am    am    about
am    am    am    am    am    up   
is    is    is    is    is    is    up
is    is    is    is    is    is    about

对最后一列排序后，就把最后是about的聚在一起，up的在一起：
file2：
am    am    am    am    about
am    am    about
is    is    is    is    is    is    about
am    am    am    up
am    am    am    am    am    up   
is    is    is    is    is    is    up

午夜凋零

回复 1# junlingpang

1. #!/usr/bin/perl -w
   
2. open F1, "file1";
   
3. open F2, ">file2";
   
4. while(<F1>){
   
5.   chomp;
   
6.   s/(.*) (\S+)$/$2 $1/;
   
7.   push @a, $_;
   
8. }
   
9. @b = sort @a;
   
10. foreach(@b){
    
11.   s/^(\S+) (.*)/$2 $1/;
    
12.   print F2 "$_\n";
    
13. }

复制代码

有点要求，就是file1中出现的空白地方是空格，不是tab。

Cu_fans

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @arr = <DATA>;
   
6. 
   
7. @result = map  {$_->[0]}
   
8.           sort {$a->[-1] cmp $b->[-1]}
   
9.           map {[$_, split /\s+/]} @arr;
   
10.          
    
11. print "@result\n";
    
12. 
    
13. __DATA__
    
14. am    am    am    am    about
    
15. am    am    am    up
    
16. am    am    about
    
17. am    am    am    am    am    up   
    
18. is    is    is    is    is    is    up
    
19. is    is    is    is    is    is    about

复制代码

freflying

open FILE,"<data.txt" or die "Cann't open data.txt.";
chomp(my @arrays = <FILE>);
my @sorts = sort { (split "\t",$a)[-1] cmp (split "\t",$b)[-1] } @arrays;
foreach (@sorts) {
   print "$_\n";
}
需注意你的数据有的不是直接以回车换行结尾。

hgli00

回复 2# 午夜凋零
这样排出来的结果和楼主需要的有出入，结果中第一二行的位置不对，@b = sort @a会把行与行的相对位置改变。。

junlingpang

回复 4# freflying


    谢谢你

junlingpang

回复 3# Cu_fans


    谢谢

junlingpang

回复 2# 午夜凋零


    谢谢

Perl_Er

回复 1# junlingpang

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my %hash;
   
6. while(<DATA>){
   
7.     my @ary = m/(.* )(.*)/;
   
8.     push @{$hash{$2}}, $1;
   
9. }
   
10. 
    
11. my @ary = sort( keys %hash );
    
12. 
    
13. foreach my $it ( @ary ){
    
14.   
    
15.     foreach my $row ( @{$hash{$it}} ) {
    
16.         
    
17.         print $row, $it,"\n";
    
18.     }
    
19.    
    
20. }
    
21. 
    
22. 
    
23. __DATA__
    
24. am    am    am    am    about
    
25. am    am    am    up
    
26. am    am    about
    
27. am    am    am    am    am    up
    
28. is    is    is    is    is    is    up
    
29. is    is    is    is    is    is    about

复制代码

am    am    am    am    about
am    am    about
is    is    is    is    is    is    about
am    am    am    up
am    am    am    am    am    up
is    is    is    is    is    is    up

blackold

1. perl -e 'open $fh,"urfile";@lines=<$fh>;print for sort {(split " ",$a)[-1] cmp (split " ",$b)[-1]} @lines;'

复制代码