作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] 移除阵列中的重复值
时间Sun Aug 26 10:36:26 2007
※ 引述《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