連想配列の配列の使い方

質問

C言語でいうところの構造体の配列（要素は"hoge"と"fuga"のみ）を
perlで表現する場合、連想配列の配列にするのが一般的でしょうか？

以下の様なソースコードなのですが、perlらしさが失われている気がします。
perlらしく書くとしたらどう書くのが良いでしょうか？

[ソース]
@list; #この配列の要素に連想配列を入れる
sub input{
#list.txtの中にはhogeとfugaの値がカンマ区切りで記入されている
open(IN, "list.txt");　
$i = 0;
while ($xx = <IN>) {
($list[$i]{"hoge"}, $list[$i]{"fuga"}) = split /,/, $xx;
$i++;
}
close(IN);
}
sub output{
for($i = 0; $i <= $#list; $i++){
print $list[$i]{"hoge"}, $list[$i]{"fuga"};
}
}

回答No.1

_--_1l1_1_ · ベストアンサー

Perl らしいかどうかは別にして、

use strict;
use warnings;

my @list = ();
while ( defined( my $line = <DATA> ) ) {
$line =~ s/\x0D?\x0A?$//; # my chomp
if ( $line =~ /^([^,]+),([^,]+)/ ) {
push @list, { hoge => $1, fuga => $2 };
}
}

for my $hash_ref (@list) {
print "hoge = ", $hash_ref->{hoge}, ", fuga = ", $hash_ref->{fuga}, "\n";
}

__DATA__
aaa,bbb,ccc
111,222,333
AB,CD,EF

お礼

ご回答ありがとうございます。
C言語出身だと馴染みの無い文字列の置換やforの書き方がperlらしいですね。
大変参考になりました。