develooper Front page | perl.beginners | Postings from September 2009

hash of hashes question

Thread Next
From:
Noah Garrett Wallach
Date:
September 4, 2009 11:02
Subject:
hash of hashes question
Message ID:
4AA15619.2010906@enabled.com


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'} ) {
             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

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About