Perlでは何が定数なのか : D-7 <altijd in beweging>

use strict; use O ('Deparse'); sub not_const { 1 } sub const_num() { 1 } sub const_string() { "foo" } sub const_list() { [ qw(1 2 3) ] } sub const_hash() { { a => 1, b => 2, c => 3 } } if (not_const) { print "This statement was not folded\n"; } if (const_num) { print "This statement was not folded\n"; } if (const_string) { print "This statement was not folded\n"; } if (const_list) { print "This st