Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: lost in my data structure.

by garyaj (Initiate)
on Nov 15, 2005 at 04:04 UTC ( [id://508474]=note: print w/replies, xml ) Need Help??


in reply to lost in my data structure.

One way is:
for my $ip (keys %host) {
  print "$ip\n";
  for my $port (keys %{$host{$ip}{'tcp'}}) {
    print $port,"  ";
    print $host{$ip}{'tcp'}{$port}{'state'},"  ";
    print $host{$ip}{'tcp'}{$port}{'service'},"\n";
  }
}

As for adding another line, you could do this:

%host {
   
  'ip1' => {
     'tcp' => {
        '21' => {
           'state' => 'open',
           'service' => 'ftp',
        },
        '80' => {
           'state' => 'open',
           'service' => 'web',
        },
        '53' => {
           'state' => 'open',
           'service' => 'web',
         },
      },
    },
  },
...

Be very careful with your punctuation. Hash elements are separated by commas not semicolons and string values must be in quotes.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://508474]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2024-03-29 10:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found