Recent Research

(From BioMed Central . See also our PubMed Central feed.)

#!/usr/bin/perl -w use strict; =head1 STUFF See also http://www.nlm.nih.gov/nccam/camonpubmed.html sudhap@itsa.ucsf.edu cable6427 Download.x=1 drpDownloadFormat=endnote http://www.biomedcentral.com/search/results.asp?txtSearch1=%28%22alternative+medicine%22%29&drpFromDate=0&drpToDate=0&drpAddedInLast=0&drpArticleType=&drpAbstract=no+abstract&drpPerPage=20&drpOrderBy=by+date&jou_id=&strSearchBoxType=bmc_boolean_results&strSavedArxIDs=&chkBMCJournals=true&chkCurrentOpinion=true&chkNSP=true&chkJournalIDList=&strPeerReview=peerreview&Search.x=10 http://www.biomedcentral.com/search/results.asp?txtSearch1=%28%22alternative+medicine%22%29&drpFromDate=0&drpToDate=0&drpAddedInLast=0&drpArticleType=&drpAbstract=no+abstract&drpPerPage=20&drpOrderBy=by+date&jou_id=&strSearchBoxType=bmc_boolean_results&strSavedArxIDs=&chkBMCJournals=true&chkCurrentOpinion=true&chkNSP=true&chkJournalIDList=&strPeerReview=nonpeerreview&Search.x=10 http://www.biomedcentral.com/search/results.asp?txtSearch1=%28%22alternative+medicine%22%29&drpFromDate=0&drpToDate=0&drpAddedInLast=0&drpArticleType=&drpAbstract=no+abstract&drpPerPage=20&drpOrderBy=by+date&jou_id=&strSearchBoxType=bmc_boolean_results&strSavedArxIDs=&strPeerReview=&chkBMCJournals=true&chkCurrentOpinion=true&chkNSP=true&chkJournalIDList=&Search.x=10 =cut # our $URL = 'http://www.biomedcentral.com/search/results.asp?txtSearch1=%28%22alternative+medicine%22%29&Display.x=32&Display.y=7&Display=Display&chkPtrFriendly=true&drpPerPage=20&drpAbstract=no+abstract&drpAddedInLast=&drpOrderBy=by+date&drpSelected=-2&drpDownloadFormat=endnote&drpArticleType=&page=1&iArticleStartNumber=1&jou_id=&strSavedArxIDs=&strPeerReview=&chkBMCJournals=true&chkNSP=true&chkCurrentOpinion=true&strSearchBoxType=bmc_boolean_results&usq_id=1177535806102233&Search.x=10&checkPtrFriendly=true&dropPerPage=20&dropAbstract=no+abstract&dropAddedInLast=&dropOrderBy=by+date&dropSelected=-2&dropDownloadFormat=endnote'; our $URL = 'http://www.biomedcentral.com/search/results.asp?txtSearch1=%28%22alternative+medicine%22%29&Display.x=32&Display.y=7&Display=Display&drpPerPage=20&drpAbstract=no+abstract&drpAddedInLast=&drpOrderBy=by+date&drpSelected=-2&drpDownloadFormat=endnote&drpArticleType=&page=1&iArticleStartNumber=1&jou_id=&strSavedArxIDs=&strPeerReview=&chkBMCJournals=true&chkNSP=true&chkCurrentOpinion=true&strSearchBoxType=bmc_boolean_results&usq_id=1177535806102233&Search.x=10&checkPtrFriendly=true&dropPerPage=20&dropAbstract=no+abstract&dropAddedInLast=&dropOrderBy=by+date&dropSelected=-2&dropDownloadFormat=endnote'; our $START = ''; our $END = ''; use CGI qw(header param escapeHTML); use CGI::Util qw(escape); use CGI::Carp qw(fatalsToBrowser); our $FCACHE = '/tmp/biomed.txt'; sub main { print header(); if (-f $FCACHE && (-M $FCACHE < 0.5) && !param('force') ) { # print STDERR 'DEBUG: cache file is recent, ', "-M=", -M $FCACHE, "\n" # die "file is modified at ", -M $FCACHE; } else { system("curl -s '$URL' > $FCACHE"); system("chmod 666 $FCACHE"); } open(F,"<$FCACHE") || die "can't open $FCACHE: $!"; my $html = join('', ); close(F); my $limit = param('limit'); my $format = param('format') || 'all'; $limit++ if $limit; # $html =~ s/.*OAS AD end.*?>//s; $html =~ s/\r\n?/\n/g; $html =~ s/.*$START\n/$START\n/s; $html =~ s,\n