Perlについての質問箱 46箱目
■ このスレッドは過去ログ倉庫に格納されています
0699デフォルトの名無しさん
2011/05/02(月) 15:47:35.66tie my %hash,'Tie::IxHash';
my $self=shift;
%hash=@_;
#print "$_\n" foreach(keys %hash);
push @{$self->{res}},{%hash};
}
sub new{
my $class=shift;
tie my %hash,'Tie::IxHash';
tie
my $self=bless \%hash,$class;
return $self;
}
print "$_\n" foreach(keys %{$g->{res}->[0]});
で呼び出すと順番ずれてしまいます
たとえば%hash=('res'=>[{a=>10,b=>20,n=>15}]);ってやると
n
a
b
って表示されます
tie my %hash,'Tie::IxHash';これは間違ってるんですが
どうやって設定すればいいでしょうか?
tie my %{$hash{res}->[0]},'Tie::IxHash';とやっても表示されないですし
■ このスレッドは過去ログ倉庫に格納されています