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

hash of hashes question

Thread Next
Noah Garrett Wallach
September 4, 2009 11:02
hash of hashes question
Message ID:

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?



Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About