hash of hashes

[John]

Hi

Cannot work this one out.

The following works OK:

my $test1=$der->encode({type => 'sequence',
value => [{type => 'integer', value => 55},{type => 'string', value =>
'HALLO'}]
});

Rather than placing the hash in the routine call I want to place it outside
and call it $der->encode(%hash);

my %hash;
$hash{type}='sequence';
$hash{value}{type}='integer';
$hash{value}{value}='55';
if I now say
$hash{value}{type}='string';
$hash{value}{value}='hallo';
it will overwite 'integer' and '55'

How do I get around that?

Regards
John

 

[J. Gleixner]

Hi

Cannot work this one out.

The following works OK:

my $test1=$der->encode({type => 'sequence',
value => [{type => 'integer', value => 55},{type => 'string', value =>
'HALLO'}]
});

Rather than placing the hash in the routine call I want to place it outside
and call it $der->encode(%hash);

my %hash;
$hash{type}='sequence';
$hash{value}{type}='integer';
$hash{value}{value}='55';
if I now say
$hash{value}{type}='string';
$hash{value}{value}='hallo';
it will overwite 'integer' and '55'

How do I get around that?

Regards
John

perldoc perldsc

push( @{ $hash{ 'value' } },
{ type=> 'integer', value => '55' },
{ type=> 'string', value => 'hallo' } );

 

[John]

Hi

Cannot work this one out.

The following works OK:

my $test1=$der->encode({type => 'sequence',
value => [{type => 'integer', value => 55},{type => 'string', value =>
'HALLO'}]
});

Rather than placing the hash in the routine call I want to place it
outside and call it $der->encode(%hash);

my %hash;
$hash{type}='sequence';
$hash{value}{type}='integer';
$hash{value}{value}='55';
if I now say
$hash{value}{type}='string';
$hash{value}{value}='hallo';
it will overwite 'integer' and '55'

How do I get around that?

Regards
John

perldoc perldsc

push( @{ $hash{ 'value' } },
{ type=> 'integer', value => '55' },

Many thanks.
Regards
John