※ 引述《dickyhu (軒)》之銘言：
: 請問一下如果一個陣列中，有重覆值那我要怎麼移除呢?
: 例如： @tmp={1,3,5,7,7,9,3,5,9};
: 而我想輸出的結果為 1,3,5,7,9 ==>然後得到此陣列的個數為5
: 請教各位大大囉。
: 因為我只找到PHP 有這種函式可以用，但Perl目前沒有找到。
#!/usr/bin/perl
my @in = (1,3,5,7,7,9,3,5,9);
my @out = grep(!$saw[$_]++, @in);
print foreach(@out);
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.230.170.252