- 422 名前：JAPU ◆lVJAPUTeX. mailto:sage [2007/10/09(火) 05:31:19 ID:???]
- @array = qw[0 1 3 5 1 3 2 0 9];
%tmp = map { $_ => "moe" } @array;
@uniq = keys %tmp;
作業用の変数を使いたくなければ、
@uniq = keys %{ { map { $_ => "moe" } @array } };
と書くこともできます。
制限: undef以外のスカラ値のみしか扱えません。
