Unnamed
public text v1 · immutable#!/usr/bin/perl
use strict;
use NCBI_PowerScripting;
my %params;
my $db = 'pubmed';
my $report = 'citation';
#EPost
$params{'db'} = $db;
$params{'id'} = 'pmid.in';
%params = epost_file(%params);
#EFetch
$params{'retmod'} = 'xml';
$params{'sort'} = 'author';
$params{'outfile'} = 'pmids.xml';
efetch_batch(%params);
# Now here I will parse the posted.dat file, insert the data into
# a mysql database, and delete the temporary posted.dat file to
# ready for the next pmid inputed