Perl のリファレンスの機能を使ってサンプルコードを書いてみた。 use strict; sub foo { my @a = (0, 1, 2, 3); print "a = " . \@a . "\n"; return @a; } my @x = foo(); print "x = " . \@x . "\n"; print "x[1] = " . $x[1] . "\n"; sub bar { my @b = (…

曇り。