- 559 名前：デフォルトの名無しさん mailto:sage [2007/02/02(金) 21:32:19 ]
- 利便性の為にハッシュを使わざるを得ないのが気になってるんじゃないの？
配列でやりたいなら、こんなことしちゃったり：
my $r = MyRecord->new(split /,/);
print("$r->name\n");
package MyRecord;
BEGIN {
my $i = 0;
my @col_name = qw(id name age); # カラム名を設定。
for my $n (@col_name) {
eval qq{ sub $n :lvalue { \$_[0][$i] }};
$i++; }}
sub new { bless [@_[1..$#_]], $_[0]; }
