作者puffs (想吃泡芙)
看板perl
标题Re: [问题] 请问remove dupe & sort 的问题
时间Mon Sep 6 14:39:42 2004
※ 引述《puffs (想吃泡芙)》之铭言：
: 请问怎样做会比较好
: 用 java 的话我知道可以用 collection
: 但 perl 不熟，有没有高手可以给个方向的
: 谢谢罗~~~
恩...没人回我自己先回好了
写了一个可用的版本....但觉得应该可以简化一些
有没有大大可以给些意见的
#File: removedupe.pl
$usage = "USAGE: removedupe [dict file]
dict file : Dict File\n";
die("$usage") unless @ARGV;
$dictf = shift(@ARGV);
$dictRf = "new.txt";
die("$usage") if ($#ARGV != -1);
open(DFILE, $dictf ) || die "Cannot open Dict file : $dictf\n";
open(RFILE, "> $dictRf" ) || die "Cannot open Dict.new file: $dictRf\n";
%seen = ();
@result = ();
@content = <DFILE>;
foreach $item (@content) {
chomp($item);
unless ($seen{$item}) {
$seen{$item} = 1;
}
}
@list = keys(%seen);
@slist = sort { $a cmp $b} @list;
foreach $item (@slist) {
print RFILE "$item\n";
}
close (RFILE);
close (DFILE);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.80.71.251
1F：推 saitoh:system("cat $ARGV[0]|sort|uniq > rst"); 220.130.172.76 09/06
2F：→ saitoh:一行搞定收工 XD 220.130.172.76 09/06
3F：推 puffs:请问一下..这种写法好像都是unix上的ꄮ. 210.80.71.251 09/07
4F：→ puffs:windows 上也可以这样 run 吗 210.80.71.251 09/07
5F：推 nosrep:当然不行啊...... 210.68.41.42 09/11