Perl - リストに対する逆スラッシュ演算子 : ツルマウソフト

その定義を初めて知った時は 何のために存在するのか全く意味が分からず それから10年以上経った今でも 一度も使った事がなかった。 それがこんな身近に、しかも実用的な例があったなんて！ sub shuffle (@) { my @a=\(@_); my $n; my $i=@_; map { $n = rand($i--); (${$a[$n]}, $a[$n] = $a[$i])[0]; } @_; }う、美しすぎる・・・（笑） 一時変数を使わず、リストのスライスで 値を返すテクニックが霞んで見えます。 より一般的と思われるインデックスアクセスへ 関数を書き換えて、試しにベンチを取ってみた。 use strict; use List::Util (); use List::Util::PP (); use Benchmark; sub shuffle (@) { my @i=0..$#_;

[fbis]

昔、DBIで名前付きでデータを取得する際の「$sth->bind_columns( \(@col{ @{$sth->{NAME_lc}} }) );」というコードを見たときに凄いと思った。