Re: [問題] 請問remove dupe & sort 的問題

[puffs (想吃泡芙)]

※ 引述《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
推 saitoh:system("cat $ARGV[0]|sort|uniq > rst");
→ saitoh:一行搞定收工 XD
推 puffs:請問一下..這種寫法好像都是unix上的ꄮ.
→ puffs:windows 上也可以這樣 run 嗎
推 nosrep:當然不行啊......