[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