07/06/30 16:27:58 6uCjWfRX
配列の値をリファレンスを使って、サブルーチンへ渡す方法についての質問です。
下記のような簡単な物を作って、配列のリファレンスがサブルーチン側へ渡されていることは
わかりました。($alldata_refと$getdata_refが同じ）
が、サブルーチンを使っての配列の値の参照がなぜかできません。
いろんなサイトをみても問題はないようですが、わかる方教えてください。
@alldata=(1,2,3,4,5);
$alldata_ref=\@alldata;
print "$alldata_ref\n";
foreach (@$alldata_ref){
print "$_";
}
print "\n";
&COUNT8(\@alldata);
sub COUNT8{
my $getdata_ref="@_";
print "$getdata_ref\n";
foreach (@$getdata_ref){
print "$_";
}
print "\n";