Re: [問題] 請問remove dupe & sort 的問題
※ 引述《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
推
220.130.172.76 09/06, , 1F
220.130.172.76 09/06, 1F
→
220.130.172.76 09/06, , 2F
220.130.172.76 09/06, 2F
推
210.80.71.251 09/07, , 3F
210.80.71.251 09/07, 3F
→
210.80.71.251 09/07, , 4F
210.80.71.251 09/07, 4F
推
210.68.41.42 09/11, , 5F
210.68.41.42 09/11, 5F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
