Foro - Perl en Español

por **dexposito** » 2011-03-26 06:28 @311

Hola. Pretendo recorrer este XML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<eSummaryResult>
  <DocSum>
    <Id>1001445</Id>
    <Item Name="PubDate" Type="Date">1976 Dec 1</Item>
    <Item Name="EPubDate" Type="Date"/>
    <Item Name="Source" Type="String">FEBS Lett</Item>
    <Item Name="AuthorList" Type="List">
        <Item Name="Author" Type="String">Chauvet MT</Item>
        <Item Name="Author" Type="String">Codogno P</Item>
        <Item Name="Author" Type="String">Chauvet J</Item>
        <Item Name="Author" Type="String">Acher R</Item>
    </Item>
    <Item Name="LastAuthor" Type="String">Acher R</Item>
    <Item Name="Title" Type="String">Characterization of porcine MSEL-neurophysin.</Item>
    <Item Name="Volume" Type="String">71</Item>
    <Item Name="Issue" Type="String">2</Item>
    <Item Name="Pages" Type="String">291-3</Item>
    <Item Name="LangList" Type="List">
        <Item Name="Lang" Type="String">English</Item>
    </Item>
    <Item Name="NlmUniqueID" Type="String">0155157</Item>
    <Item Name="ISSN" Type="String">0014-5793</Item>
    <Item Name="ESSN" Type="String">1873-3468</Item>
    <Item Name="PubTypeList" Type="List">
        <Item Name="PubType" Type="String">Journal Article</Item>
    </Item>
    <Item Name="RecordStatus" Type="String">PubMed - indexed for MEDLINE</Item>
    <Item Name="PubStatus" Type="String">ppublish</Item>
    <Item Name="ArticleIds" Type="List">
        <Item Name="pubmed" Type="String">1001445</Item>
        <Item Name="pii" Type="String">0014-5793(76)80953-2</Item>
    </Item>
    <Item Name="History" Type="List">
        <Item Name="pubmed" Type="Date">1976/12/01 00:00</Item>
        <Item Name="medline" Type="Date">1976/12/01 00:01</Item>
        <Item Name="entrez" Type="Date">1976/12/01 00:00</Item>
    </Item>
    <Item Name="References" Type="List"/>
    <Item Name="HasAbstract" Type="Integer">0</Item>
    <Item Name="PmcRefCount" Type="Integer">1</Item>
    <Item Name="FullJournalName" Type="String">FEBS letters</Item>
    <Item Name="ELocationID" Type="String"/>
    <Item Name="SO" Type="String">1976 Dec 1;71(2):291-3</Item>
  </DocSum>
 
  <DocSum>
    <Id>100152</Id>
    <Item Name="PubDate" Type="Date">1978 Nov</Item>
    <Item Name="EPubDate" Type="Date"/>
    <Item Name="Source" Type="String">Blood</Item>
    <Item Name="AuthorList" Type="List">
        <Item Name="Author" Type="String">Borgers M</Item>
        <Item Name="Author" Type="String">Verhaegen H</Item>
        <Item Name="Author" Type="String">De Brabander M</Item>
    </Item>
    <Item Name="LastAuthor" Type="String">Geuens G</Item>
    <Item Name="Title" Type="String">Purine nucleoside phosphorylase in chronic lymphocytic leukemia (CLL).</Item>
  </DocSum>
</eSummaryResult>
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Lo que me interesa es coger el <id>, que ya lo tengo, y después coger el contenido de <Item Name="Title" Type="String"> que está relacionado con ese <id>.

He visto el módulo XML::parser pero no acabo de entender cómo lo puedo usar.

¿Me podéis ayudar?

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Trivial ();
 
my $xml = XML::Trivial::parseFile('code_25189.xml');
 
my @docsum = $xml->{eSummaryResult}->ea;
 
for my $docsum (0 .. @docsum-1) {
 
    print "Id: ", $xml->{eSummaryResult}->{$docsum}->{Id}->ta, "\n";
 
    for my $item ($xml->{eSummaryResult}->{$docsum}->ea) {
    
        if ($item->en eq 'Item'  and  $item->ah('Name') eq 'Title') {
            print "\tTitle: ", $item->ta, "\n";
        }
    }
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **dexposito** » 2011-03-26 09:18 @429

Y cómo puedo hacer para que en esta línea
my $xml = XML::Trivial::parseFile('code_25189.xml');

lo que le metes a parseFile() yo lo obtengo de una URL de esta forma:

$pubID = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=pubmed&id=1123";

my $respuesta = get( $pubID );

¿Cómo puedo hacer que me lo acepte el parseFile()? Porque si lo pongo de esta forma no me lo coge bien:

my $doc = $parser->parsefile($respuesta);

por **dexposito** » 2011-03-26 10:14 @468

Esto es que lo que tengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$pubID = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=pubmed&id=". $pubID;
my $respuesta = get( $pubID );
#my $DocSum = XMLin($respuesta);
my $doc = $parser->parsefile($respuesta);
 
foreach my $DocSum ($doc->getElementsByTagName('DocSum')){
  print $DocSum->getElementsByTagName('Id');
  print "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me da error cuando intenta hacer my $doc = $parser->parsefile($respuesta);
y me dice:
No such file or directory at actPub.pl line 47
que es la línea que te he comentado.

He probado de instalar el módulo de Trivial.pm pero al probarlo no me deja. Dice que:
Weak references are not implemented in the version of perl...
y he mirado por foros que es por la versión del Perl. No puedo cambiar la versión del Perl que no es mi ordenador, es el de una institución y no tengo permisos. Por eso lo estoy intentando hacer con XML::DOM.

por **explorer** » 2011-03-26 10:55 @496

No es parseFile() la que debes usar, sino la función parse().

¿Qué versión de Perl tienes instalada? Lo puedes saber ejecutando perl -V.

Cualquier versión de Perl anterior a Perl v5.10 se considera que es vieja.

por **explorer** » 2011-03-26 10:58 @498

Aquí tienes otra versión, usando XML::Smart.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Smart;
 
my $pubIP = 1;
 
my $xml = XML::Smart->new("http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=pubmed&id=$pubID");
 
for my $docsum ( @{$xml->{eSummaryResult}->{DocSum}} ) {
    print $docsum->{Id} , "  ", $docsum->{Item}('Name', 'eq', 'Title'), "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **dexposito** » 2011-03-26 10:59 @499

Está instalada la 5.8.7. Ya sé que es vieja pero la gente de allí no quiere actualizarse. Por eso XML::Trivial no me va.

Voy a probar a instalar la que me acabas de decir, Smart, a ver si va. Gracias, ahora te comento. ¡je,je!

por **explorer** » 2011-03-26 11:07 @505

dexposito escribiste:Está instalada la 5.8.7. Ya sé que es vieja pero la gente de allí no quiere actualizarse. Por eso XML::Trivial no me va.

Según la matriz de compatibilidad, XML::Trivial solo funciona con Perl v5.8.7 en Linux.

Prueba con XML::Smart. Mientras, voy a ver cómo se hace con XML::DOM.

Tranquilo, hay centenares de módulos Perl en CPAN solo para gestionar XML

por **dexposito** » 2011-03-26 11:23 @516

Muchísimas gracias, va perfecto. Un poco lento pero es por el servidor que la gente lo está colapsando, pero lo que me has pasado va perfecto.

Gracias otra vez, si tengo algún problema más ya te consultaré.

Foro - Perl en Español

Recorrer XML con atributos

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

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

Re: Recorrer XML con atributos

¿Quién está conectado?