排序，帮修改下我的一小段CODE，谢谢！

T2.txt：
windows.wang@163.com
qi.zhang@gg.com
liu.lin@263.net
feng.zhen@gg.com
yun.song@gg.com
我想找出以@gg.com结尾的所有的mail address，并将@gg.com前面的部分按顺序排序。

#!/usr/bin/perl use strict; open (T2,"T2.txt") or die "$!"; while (my $line=<T2>){   if ($line=~/(.*)\@gg.com/){     my @en=push my @en ,$1;     print @en;   } }

小弟不明白的是：@en=sort {$a cmp $b} @en;这句该放在程序的什么地方？总对程序运行流程不太熟悉，哎！
上面是小弟的思路，或许有更好的解决办法，但是我现在能想到的也就这个思路了，大家在上面思路的基础上帮修改下吧，但愿写多了就会熟悉了吧！谢谢了！

你先在while循环里面，把他们都push进数组。
然后结束循环之后，再对数组排序输出就可以了。

my @en=push my @en ,$1;

这段代码得到是3.最好把赋值除掉。
然后 @zhang=sort {$a cmp $b} @en;
print 就可以出来了。

我改了一点代码，你看看吧

#!/usr/bin/perl use strict; my (@en,@ke,@zhang); open (T2,"id.txt") or die "$!"; while (my $line=<T2>){   if ($line=~/(.*)\@gg.com/){    push @en ,$1;   } } @zhang=sort {$a cmp $b} @en;  print join "\n",@zhang;

谢谢！

谢谢！

给个unix脚本解决同样的问题

grep @gg.com$ T2.txt |sort

恩，是的，我想复杂了，谢谢楼上的朋友！