Chinaunix

标题: 排序，帮修改下我的一小段CODE，谢谢！ [打印本页]

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

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

作者: 撒哈拉里的鱼 时间: 2007-12-24 11:34
你先在while循环里面，把他们都push进数组。
然后结束循环之后，再对数组排序输出就可以了。

作者: zhangkeyijian 时间: 2007-12-24 11:40

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;

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

作者: windows.li 时间: 2007-12-24 12:28
谢谢！

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

作者: windows.li 时间: 2007-12-24 12:45
谢谢！

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

作者: rdcwayx 时间: 2007-12-24 14:10

原帖由 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 时间: 2007-12-24 14:41
恩，是的，我想复杂了，谢谢楼上的朋友！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)