Foro - Perl en Español

#!/usr/bin/perl -l
use XML::DOM;

my $parser = XML::DOM::Parser->new();
my $doc = $parser->parsefile ("kk.xml");
my $nodos = $doc->getElementsByTagName("UBR7200");

$nodo = $nodos->item(0);

#print $nodo->getNodeType;
#print $nodo->getNodeName;

@subnodos = $nodo->getChildNodes; # Nodos dentro del nodo raíz

foreach my $subnodo ( @subnodos ) {

#    print $subnodo->getNodeTypeName;

    $tipo = $subnodo->getNodeTypeName;

    if ( $tipo eq 'ELEMENT_NODE'  ) {   # Si es un nodo
        print $subnodo->getNodeName;            # Su nombre

        @subsubnodos = $subnodo->getChildNodes; # Su contenido

        foreach my $s ( @subsubnodos ) {
            print "  ", $s->getNodeValue;
        }
    }
}

use strict;
use XML::Rules;

my $parser = XML::Rules->new(
        rules => [
                _default => 'content',
                qr/^UBR\d+$/ => 'no content',
                Mibs => 'pass no content',
        ]
);

my $data = $parser->parse(\*DATA);

#use Data::Dumper;
#print Dumper($data);

foreach my $ubr (keys %$data) {
  print "$ubr: SNR=$data->{$ubr}{SNR} / SNRTotal=$data->{$ubr}{SNRTotal}\n";
}
 
__DATA__
<?xml version="1.0" standalone="yes"?>
<Mibs>
        <UBR100000>
                <SNRTotal>a</SNRTotal>
                <SNR>b</SNR>
                <CW_UNER>c</CW_UNER>
                <CW_CORR>d</CW_CORR>
                <CW_UNCORR>e</CW_UNCORR>
                <FREQ>f</FREQ>
                <OCUPACION>g</OCUPACION>
                <MODCM>h</MODCM>
                <MOD>i</MOD>
        </UBR100000>
        <UBR7200>
                <SNRTotal>a</SNRTotal>
                <SNR>b</SNR>
                <CW_UNER>c</CW_UNER>
                <CW_CORR>d</CW_CORR>
                <CW_UNCORR>e</CW_UNCORR>
                <FREQ>f</FREQ>
                <OCUPACION>g</OCUPACION>
                <MODCM>h</MODCM>
                <MOD>i</MOD>
        </UBR7200>
</Mibs>

#!/usr/bin/perl -l
use XML::Simple;

my $ref = XMLin('kk.xml');

foreach my $nodo ( keys %{$ref->{UBR7200}} ) {
    print "$nodo : $ref->{UBR7200}->{$nodo}";
}