Perl初心者スレ（マジレス回答）

Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次 1-新

26(1): 2012/10/08(月)10:06 AAS
my @array_unique = keys %{{map {$_,1} @array}};

perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};