作者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