【Perl】初心者コーナー Part19

[0524 nobodyさん 03/03/03 01:30 ID:???]

my @a;
local *b; # 動的スコープに注意
*b = \$a[0];

$b = 'b';
$a[0] = 'a';
print "[$b]";