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

windows.li

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;这句该放在程序的什么地方？总对程序运行流程不太熟悉，哎！
上面是小弟的思路，或许有更好的解决办法，但是我现在能想到的也就这个思路了，大家在上面思路的基础上帮修改下吧，但愿写多了就会熟悉了吧！谢谢了！

[ 本帖最后由 windows.li 于 2007-12-24 10:29 编辑 ]

撒哈拉里的鱼

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

zhangkeyijian

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>){ &nbsp;&nbsp;if ($line=~/(.*)\@gg.com/){ &nbsp;&nbsp;&nbsp;push @en ,$1; &nbsp;&nbsp;} } @zhang=sort {$a cmp $b} @en; &nbsp;print join "\n",@zhang;

[ 本帖最后由 zhangkeyijian 于 2007-12-24 11:42 编辑 ]

windows.li

谢谢！

[ 本帖最后由 windows.li 于 2007-12-24 12:45 编辑 ]

windows.li

谢谢！

[ 本帖最后由 windows.li 于 2007-12-24 12:46 编辑 ]

rdcwayx

原帖由 windows.li 于 2007-12-24 10:28 发表
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/per ...

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

grep @gg.com$ T2.txt |sort

windows.li

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