[EMAIL PROTECTED] wrote:
> Thanks Brain
> I have this script that I ran
>
> use Data::Dumper;
> use IxHash;
> print @INC;
> my %hash;
> tie %hash, "IxHash";
> %hash = (
> VAR1 => 'DATA1',
> VAR2 => 'DATA2',
> VAR3 => 'DATA3',
> VAR4 => 'DATA4'
> );
> print Data::Dumper::Dumper(\%hash);
>
> I got the following output
> 'VAR1' => 'DATA1',
> 'VAR2' => 'DATA2',
> 'VAR3' => \$VAR1->{'VAR1'},
> 'VAR4' => \$VAR1->{'VAR2'}
> but I was expecting
> 'VAR1' => 'DATA1',
> 'VAR2' => 'DATA2',
> 'VAR3' => 'DATA3',
> 'VAR4' => 'DATA4'
> Can anyone give any suggestion to solve this issue
use strict;
use warnings;
use Tie::IxHash;
use Data::Dumper;
my %hash;
tie %hash, 'Tie::IxHash';
%hash = (
VAR1 => 'DATA1',
VAR2 => 'DATA2',
VAR3 => 'DATA3',
VAR4 => 'DATA4'
);
print Data::Dumper->Dump([\%hash], [qw(\%hash)]);
__END__
I get :
$\%hash = {
'VAR1' => 'DATA1',
'VAR2' => 'DATA2',
'VAR3' => 'DATA3',
'VAR4' => 'DATA4'
};
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
