[Vienna-pm] Atribute processieren
e_horn at fh-bingen.de
e_horn at fh-bingen.de
Tue Jan 11 02:30:51 PST 2005
Hallo ich moechte mit XML::DOM einige attribute parsen!
use strict;
use XML::DOM;
use LWP::Simple;
sub get_SummeryHTMLunigene($db,$id)
{
my $url = 'http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=';
my $db = $_[0];
my $id = $_[1];
my $parameter_id='&id=';
my $mode='&retmode=xml';
my $xmlurl=$url.$db.$parameter_id.$id.$mode;
my $dokument = get($xmlurl);
unless (defined $dokument) { print "ERROR\n"; exit };
my $parser = XML::DOM::Parser->new();
my $doc = $parser->parsefile($xmlurl);
my $result="";
foreach my $species ($doc->getElementsByTagName('DocSum'))
{
$result.= "<tr><td>";
$result.= $species->getElementsByTagName('Item');
$result.=(' .$species->getAttribute('TaxId')');
$result.= "</td><td>";
$result.= "</td><td>";
}
return $result;
}
my $html= &get_SummeryHTMLunigene("homologene",6945);
print $html;
Die Ausgabe ist:<tr><td>XML::DOM::NodeList=ARRAY(0x104eeb8c)</td><td></td><td>
kann mir jemand von euch sagen wo mein fehler liegt??
Vielen Dank
-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/
More information about the Vienna-pm
mailing list