split後のデータ数でなくて、リスト値を代入したい。

質問

my %hash = ();
$hash{'NAMAE'} = "田中";
$hash{'TEN'} = split(/,/, "100, 50, 70");

名前はスカラーデータなので、問題ないのですが点数はリストなので
このまま代入し、

$has{'TEN'}で見てみると3というデータ数が入ります。
これをリストで代入させたいのですがどうすればよいのでしょうか？

回答No.4

Tacosan · ベストアンサー

結局のところ配列のリファレンスを入れるしかないわけですが, そのためには
$hash{'TEN'} = [split(/,/, "100, 50, 70")];
と [ ... ] でいきなりリファレンスにするのが最も単純.
ところで, この split だけど /,/ じゃなく /,\s*/ にした方が安全じゃないかな?

回答No.3

maura

＃１の方の補足です

ハッシュじゃなくて、配列に入れればいいと思います。
$hash{'TEN'} = split(/,/, "100, 50, 70");
↓
@TEN = split(/,/, "100, 50, 70");
↓
$hash{'TEN'} = \@TEN;

print $hash{'TEN'}->[0]; # １００と表示

回答No.2

venzou

いったん配列に入れて、そのリファレンスを入れれば良いのでは？

my %hash = ();
$hash{'NAMAE'} = "田中";
@hash_ten = split(/,/, "100, 50, 70");
$hash{'TEN'} = \@hash_ten;
print "@{$hash{'TEN'}}\n";
print "${$hash{'TEN'}}[0]\n";
print "${$hash{'TEN'}}[1]\n";
print "${$hash{'TEN'}}[2]\n";

回答No.1

moon_night

ハッシュじゃなくて、配列に入れればいいと思います。
$hash{'TEN'} = split(/,/, "100, 50, 70");
↓
@TEN = split(/,/, "100, 50, 70");

お礼

どうしても$hash{'TEN'}にリストを入れたいのですが、参照などでセットしても無理でしょうか？取り出し方も？です。

このあたりが私にとって未開なので不安です。