△▲ WebProg 初心者の質問 Part23 ▼▽
■ このスレッドは過去ログ倉庫に格納されています
0673nobodyさん
2011/06/08(水) 08:22:01.07ID:???my %test = ('123'=>'yotoshiku', '567'=>'aishite');
testfunc({%test});
print "1: ", %test, "\n";
testfunc(\%test);
print "2: ", %test, "\n";
sub testfunc {
my $hashref = shift;
$hashref->{123} = "unko";
}
__END__
Output:
1: 123yotoshiku567aishite
2: 123unko567aishite
■ このスレッドは過去ログ倉庫に格納されています