無名配列からハッシュを作りたいのですが・・・

質問

$VAR1 = [
'No',
'a',
'i',
'u',
'e',
'o',
];

#VAR1と同じ数の<>区切りの下記のようなデータを読み込み配列に代入
--List-----------------------
1<>あ<>い<>う<>え<>お<>
-------------------------

foreach(0..$#List){
@Array=split(/<>/,$List[$_]);
}

最終的なイメージは
print "$a{No}";
>1
print "$a{a}";
>a
となるよう、上記VAR1の無名配列の値をキーに、読み込んだ<>区切りのデータを関連付けて表示させるようにしたいのです。

foreach my$var(@$VAR1){
...ここをどうすれば配列の値をハッシュのキーとして作成出来るのか頭を悩ませてます。
}

先輩方のお知恵をお借りできませんでしょうか。
宜しくお願いします。

回答No.2

ryu_chan

以下のようにハッシュスライスを使うのはいかがでしょうか？

@a{@$VAR1} = @Array;

疑問というか、以下の処理がちょっと謎です。

foreach(0..$#List){
@Array=split(/<>/,$List[$_]);
}

こう↓したいわけではないでしょうか？

foreach(0..$#List){
push @Array, [ split(/<>/,$List[$_]) ];
}

お礼

ご教授頂きありがとうございます。

foreach(0..$#List){
push @Array, [ split(/<>/,$List[$_]) ];
}
についてですが、@Listが無名配列の場合は、そのようにすればよいのかな・・と思うのですけど、通常の配列の場合ですと
@Array=split(/<>/,$List[$_]);
で代入されるようです。

補足

ハッシュのスライスというのがあるんですね。有難う御座います。
@a{@$VAR1} = @Array;
の@a{}となっているのに疑問を持ちつつ、勝手に配列のスライスと勘違いして調べてましたｗ

で、私の方で表示テストを行ってみたのですが、@a{@$VAR1}の中身の確認が出来ませんでした。

後、大前提としてですが、
--List-----------------------
1<>あ<>い<>う<>え<>お<>
-------------------------
の中身は1行のみでした。すいません

foreach(0..$#List){
push @Array, [ split(/<>/,$List[$_]) ];
}
のご教授有難う御座います。

で、それを前提に
my@Array;
my%a;
foreach(0..$#List){
@Array=split(/<>/,$List[$_]);
}
@a{@$VAR1} = @Array;
print "■テスト表示<br><br>";
print "\@a=@a<br>";
print "\@$a=@$a<br>";
print "\$a[0]=$a[0]<br>";
print "\$a[0]->{BCorpName}=$a[0]->{a}<br>";
print "\$a->[0]->{a}=$a->[0]->{a}<br>";
print "\$a[0]{a}=$a[0]{a}<br>";
print "\$a{a}=$a{a}<br>";
とテスト表示してみたのですが、中身が何も表示されず
use Data::Dumper;
open(F,"> Datadump_a.txt") ; # 保存するファイルを開く
print F Dumper(\%a,*a); # 連想配列の内容をファイルに書き出す
#print F Dumper(\@a); # 連想配列の内容をファイルに書き出す
#print F Data::Dumper->Dump( [ \%a ] , [ '*a' ] );
close(F);
として内容を確認してみたのですが、中身が何も入ってないようです。

今回の件で私自身ハッシュや配列のスライスについて、もう少し勉強が必要な事を痛感させられました。

お手数ですが、上記の件についてもし何かご助言いただけます様でしたら幸いです。

宜しくお願い致します。