#!/usr/local/bin/perl -w ############################################################################### # # # MEDSUM PROGRAM 1 : QUICK COUNT FOR A QUERY TERM # # # # (used in Timeline and PROFILE) # # # ############################################################################### use Getopt::Long; my ($term); GetOptions ("query:s" => \$term); $term =~ s/~q~q~/\'/g; use LWP::Simple; $base = "http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?". "db=Pubmed". "&". "retmax=1". "&". "term="; $signature = '&tool=medsum&email=mike_galsworthy@yahoo.co.uk'; $esearch = get($base . $term . $signature); $esearch =~ m|(\d+)|s; my $Count = $1; print $Count;