Help for this page

Select Code to Download


  1. or download this
    <response_xml>
    <exec_command>
    <command>
    ...
    </xml_show_result>
    </exec_command>
    </response_xml>
    
  2. or download this
    use XML::Simple qw(:strict);
    
    my $xml = XMLin($tmpfile, ForceArray => 0, SuppressEmpty => 1, KeyAttr
    + => 'ru_resource' );
    my $bandwidth =  $xml->{exec_command}->{xml_show_result}->{xml_show_re
    +source_usage}->{ru_entry}->{bandwidth}->{ru_current};
    print $bandwidth;
    
  3. or download this
    $VAR1 = {
              'exec_command' => {
                                'xml_show_result' => {
    ...
    '
                              }
            };