Foro - Perl en Español

por **explorer** » 2011-03-26 12:31 @563

Con XML::DOM no he conseguido hacerlo. En cambio, con XML::Simple, ha sido sencillo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Simple;
use LWP::Simple;
 
my $pubID = 1;
 
my $pagina = get("http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=pubmed&id=$pubID");
 
my $xml = XMLin($pagina, ForceArray => [ 'DocSum', 'Item' ], ForceContent => 1);
 
for my $docsum ( @{ $xml->{DocSum} } ) {
 
    print "Id: ", $docsum->{'Id'}->{'content'}, " : ";
 
    for my $item ( @{ $docsum->{Item} } ) {
 
        next if $item->{'Name'} ne 'Title';
 
        print $item->{'content'};
    }
    
    print "\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

$pubID
    = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=gene&id="
    . $pubID;
 
#my $pubIP = 1;
 
my $xml = XML::Smart->new($pubID);
 
my $sth1;
my $alias;
 
for my $docsum ( @{ $xml->{eSummaryResult}->{DocSum} } ) {
 
    print $docsum->{Id}, "\n";
 
    $alias = $docsum->{Item}( 'Name', 'eq', 'OtherAliases' );
 
    $sth1
        = $dbh->prepare('UPDATE gene_info_21 SET Alias = ? WHERE GeneID = ?')
        or die( "Couldn't prepare statement: " . $dbh->errstr );
    $sth1->execute( $alias, $docsum->{Id} )
        or die( "Couldn't execute statement: " . $sth1->errstr );
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Resulta que hay veces que me da error cuando abro el xml, o cuando lo empiezo a recorrer, supongo que porque el xml no estará bien formado. El caso es que me da un error el perl y me para de recorrer el xml. ¿Hay alguna forma de capturar ese error y que siga con la ejecución del programa?

Este trozo de código que te he pasado está dentro de un bucle y voy llamando abriendo un xml diferente en cada iteración, lo que quiero es que si me da error en un xml, siga a la siguiente iteración del bucle y no pare la ejecución, ya que aunque no me actualice los datos que contiene el xml que ha dado error, como son pocos, me da igual. En la siguiente actualización ya se hará bien.

Espero haberme explicado bien, gracias por la ayuda.

por **explorer** » 2011-04-23 13:22 @598

Pero... ¿qué tipo de error? ¿sale un error en pantalla? ¿en qué línea o en qué momento?

Quizás puedas resolverlo con una sentencia eval {}. O usar el módulo recomendado por la comunidad, Try::Tiny.

por **dexposito** » 2011-04-30 08:29 @395

Entonces, ¿crees que, por ejemplo, para seguir con la ejecución podría poner esto?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

try {
        my $xml=XML::Smart->new($pubID);
    } catch {
        print FILE "Error XML";
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿y así me guarda los errores en un archivo y sigo con la ejecución?

Tengo que probarlo aún que esta parte del proyecto la he dejado un poco parada, pero si más o menos es lo que tendría que hacer para no parar la ejecución del programa cuando hay un error en el xml me iría perfecto.

por **explorer** » 2011-04-30 08:35 @399

No puedes poner el my() dentro de un contexto de llaves {}: la variable $xml no será conocida fuera de ese contexto.

Mejor pon el my $xml; antes de esas línea, y luego haces el $xml = XML::Smart....

por **dexposito** » 2011-04-30 08:47 @408

ok, probaré esto y si va bien te lo comento por aquí. Gracias.

Foro - Perl en Español

Recorrer XML con atributos

Re: Recorrer XML con atributos

Publicidad

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

¿Quién está conectado?