Hi I am new to perl,trying to read an XML file attached below.I am able to read the file using XML::Simple Module.I could not loop through the hash.Can some one help me in looping through the variables mentioned in below XML file output . I tried variuos scenarions but couldn't parse through the elements. 

$VAR1 = {
          'cmd' => {
                   'parameter' => {
                                  'Additional information about port $
+port' => {
                                                                      
+         'cycle' => '1300',
                                                                      
+         'command' => [
                                                                      
+                      {
                                                                      
+                        'run' => 'ps -fp $pid',
                                                                      
+                        'text' => '^(\\w+)\\s+\\d+\\s+(\\d+)\\s+\\S+\
+\s+\\S+\\s+\\S+\\s+\\d+:\\d+:\\d+\\s+(.*)$',
                                                                      
+                        'output' => 'Full command line:$3, Parent PID
+:$2'
                                                                      
+                      },
                                                                      
+                      {
                                                                      
+                        'run' => 'service iptables status | grep dpt:
+$port',
                                                                      
+                        'text' => '^(\\d+)\\s+(DROP|ACCEPT)\\s+(udp|t
+cp|icmp|all)\\s+\\S+\\s+(\\S+)\\s+(\\S+)\\s+(.*)$',
                                                                      
+                        'output' => 'Iptables takes action $2 for por
+t $port'
                                                                      
+                      }
                                                                      
+                    ]
                                                                      
+       },
                                  'Tcp Ports In Listen State' => {
                                                                 'cycl
+e' => '1200',
                                                                 'comm
+and' => [
                                                                      
+        {
                                                                      
+          'run' => 'netstat -pant | grep LISTEN',
                                                                      
+          'text' => '^(\\w+)\\s+\\d+\\s+\\d+\\s+[\\d.]+:(\\d+)\\s+[\\
+d.]+:\\D+\\s+\\S+\\s+(\\d+)/(\\S+)',
                                                                      
+          'data' => ' $protocol = $1 $port = $2 $pid = $3',
                                                                      
+          'output' => ' $1 port $2  was opened by $4 process having p
+id $3'
                                                                      
+        }
                                                                      
+      ]
                                                               }
                                }
                 }
    }

[download]

In reply to XML Parsing by kiranveluri

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.