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

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

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

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

No.4 ベストアンサー 回答者： Tacosan 回答日時： 2007/04/06 12:22

結局のところ配列のリファレンスを入れるしかないわけですが, そのためには

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

No.3 回答者： maura 回答日時： 2007/04/06 12:10

＃１の方の補足です

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

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

No.2 回答者： venzou 回答日時： 2007/04/06 12:10

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

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 回答日時： 2007/04/06 11:44

ハッシュじゃなくて、配列に入れればいいと思います。

$hash{'TEN'} = split(/,/, "100, 50, 70");
↓
@TEN = split(/,/, "100, 50, 70");

この回答へのお礼

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

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

お礼日時：2007/04/06 12:05