perlのsortって評価するたびにスコープ作ってんじゃないの？ - Yappo::タワシ作ってないっぽい? 少なくともopcodeレベルでは作ってないが詳しくはpp_sort.cを見ろ。 use strict; use warnings; use blib; use Devel::RunOpsAnalyze; print Devel::RunOpsAnalyze::analyze { my @x = qw( 7 83 4 2 09 8 1 7 ); my @y = sort { $a <=> $b } @x; }->as_term; 実行結果 ./sort.pl 7: my @x = qw( 7 83 4 2 09 8 1 7 ); B::OP(10720), pushmark, pushmark 1 steps, 1 usec, (avrg: 1 usec) B::SVOP(10721), const, constant item [7] 1 steps, 1 usec,
