Re: hash of hashes question

Patrick Dupre wrote:
> On Fri, 4 Sep 2009, Noah Garrett Wallach wrote:
> 
>>
>>
>> Hi there,
>>
>> I am having some trouble understanding hash of hashes here.   I want 
>> to find all the keys for %policy{'policy_statement'}
>>
>>    for my $line (@lines) {
>>        for my $key ( keys %policy{'policy_statement'} ) {
> Check if $keys is correct first


Hi Patrick,

I dont understand what you are suggesting here



> 
>>            if ($line =~ 
>> /set\sprotocols\sbgp\sgroup\s(\S+)\s(import|export).*?$key\s/) {
>>                $policy{'policy_statement'}{$key} = 2;
>>                $policy{'policy_statement'}{$key}{'group_name'}{$1} = 1;
>>                $policy{'policy_statement'}{$key}{'policy_type'}{$2} = 1;
>>
>> perl is returning a systax error:
>>
>> syntax error at ./policy.sanitizer line 157, near "%policy{"
>> syntax error at ./policy.sanitizer line 160, near "} ="
>> syntax error at ./policy.sanitizer line 165, near "}"
>> Execution of ./policy.sanitizer aborted due to compilation errors.
>>
>>
>>
>> what am I doing wrong?
>>
>> Cheers,
>>
>> Noah
>>
>>
> 

• hash of hashes question by Noah Garrett Wallach
• Re: hash of hashes question by Patrick Dupre
• Re: hash of hashes question by Noah Garrett Wallach
• Re: hash of hashes question by Jim Gibson