hash of hashes question

[Noah Garrett Wallach]

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

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/