Hi I am a newbie to Perl. I am after some advice on if what I have come up with is the best way.

I have a hash ref

my $router_href = {};
### Router 1
$router_href->{1}{'routerName'} = 'asr01' ;
$router_href->{1}{'ipAddr'} = '1.1.1.1' ;
### BGP Peer : 1
$router_href->{1}{'bgpPeer'}{1}{'Name'} = 'PEER1' ;
$router_href->{1}{'bgpPeer'}{1}{'ASN'} = '111';
$router_href->{1}{'bgpPeer'}{1}{'prefixList'} = 'PREFIX-PEER1-OUT' ;
### BGP Peer : 2
$router_href->{1}{'bgpPeer'}{2}{'Name'} = 'PEER2';
$router_href->{1}{'bgpPeer'}{2}{'ASN'} = '222' ;
$router_href->{1}{'bgpPeer'}{2}{'prefixList'} = 'PREFIX-PEER2-OUT' ;

### Router 2
$router_href->{2}{'routerName'} = 'asr02' ;
$router_href->{2}{'ipAddr'} = '2.2.2.2' ;
### BGP Peer : 1
$router_href->{2}{'bgpPeer'}{1}{'Name'} = 'PEER1' ;
$router_href->{2}{'bgpPeer'}{1}{'ASN'} = '333';
$router_href->{2}{'bgpPeer'}{1}{'prefixList'} = 'PREFIX-PEER1-OUT' ;

[download]

I would like to iterate through the routers and print the prefixList

I dont know if my data structure is the best way of doing it, I am open to suggestions :-)

This is what I have managed to come up with

my $rtrId = '1';
for my $rtr ( keys %{$router_href}) {
        print $router_href->{$rtrId}{routerName}  . " : " . "\n";
        my $rplId = '1';
        for my $pfxList ( keys %{$router_href->{$rtrId}{bgpPeer}} ) {
                print $router_href->{$rtrId}{bgpPeer}{$rplId}{prefixLi
+st} . "\n";
                $rplId++;
        }
        $rtrId++
}

[download]

Thanks in advance

Nick

In reply to For loop: Hash by nickt9999

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.