7597478
- NC_002192
- Lactococcus lactis plasmid pWV01, complete sequence
- gi|7597478|ref|NC_002192.1||gnl|NCBI_GENOMES|15284[7597478]
- 7597478
- 1991/04/15
- 2008/04/09
- 520
- 1358
- 2178
- live
7597489
- NC_002193
- Lactococcus lactis cremoris Cremoris Wg2 plasmid pWVO2, complete sequence
- gi|7597489|ref|NC_002193.1||gnl|NCBI_GENOMES|15285[7597489]
- 7597489
- 1993/05/10
- 2008/07/17
- 776
- 1359
- 3826
- live
####
#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
my $public_id = "-//NLM//DTD eSummaryResult, 29 October 2004//EN";
my $system_id = "http://www.ncbi.nlm.nih.gov/entrez/query/DTD/eSummary_041029.dtd";
my $dtd = XML::LibXML::Dtd->new($public_id, $system_id);
my $filename='/g/Washu_PopGen/test_gi_docsumms_delVer4.xml';
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($filename);
my $outfile ='/g/Washu_PopGen/test_gi_taxid_table.txt';
$doc ->validate($dtd);
open(OUTFILE,">",$outfile);
print OUTFILE join("t", qw(Id TaxId Length Status ReplacedBy))."\n";
foreach my $DocSum ($doc->findnodes('/eSummaryResult/DocSum')) {
my($Id) = $DocSum->findnodes('./Id');
print OUTFILE $Id->to_literal, "\t";
my($TaxId) = $DocSum->findnodes('./TaxId');
print OUTFILE $TaxId->to_literal, "\t";
my($Length) = $DocSum->findnodes('./Length');
print OUTFILE $Length->to_literal, "\t";
my($Status) = $DocSum->findnodes('./Status');
print OUTFILE $Status->to_literal, "\t";
my($ReplacedBy) = $DocSum->findnodes('./ReplacedBy');
print OUTFILE $ReplacedBy->to_literal, "\n";
}
####
No declaration for element eSummaryResult
No declaration for element DocSum
No declaration for element Id
No declaration for element Item
No declaration for attribute Name of element Item
No declaration for attribute Type of element Item
No declaration for element Item
No declaration for attribute Name of element Item
No declaration for attribute Type of element Item
No declaration for element Item
No declaration for attribute Name of element Item
No declaration for attribute Type of element Item
####