/home/yourhome/ |
tar xvfz ActivePerl-5.8.6.811-i686-linux.tar.gz |
cd ActivePerl-5.8.6.811-i686-linux sh ./install.sh |
Enter top level directory for install?[/opt/ActivePerl-5.8] |
Enter top level directory for install?[/opt/ActivePerl-5.8] /home/yourhome/ActivePerl-5.8 |
Enable PPM3 to send profile info to ASPN[no] |
proceed? [yes] |
Please modify your startup environment by adding: /home/yourhome/ActivePerl-5.8/bin to PATH /home/yourhome/ActivePerl-5.8/man to MANPATH |
vi ~/.bashrc |
export PATH=/home/yourhome/ActivePerl-5.8/bin:$PATH export MANPATH=/home/yourhome/ActivePerl-5.8/man:$MANPATH |
source ~/.bashrc |
use SOAP::Lite; # SOAP API
# specify WSDL
my $service = SOAP::Lite
-> service('http://xml.nig.ac.jp/' .
'wsdl/GetEntry.wsdl');
# call web service
$result = $service->getXML_DDBJEntry("AB000003");
print $result."\n";
|
>perl test.pl <?xml version="1.0" standalone="no"?> <!DOCTYPE DDBJXML SYSTEM "DDBJXML.dtd"> <DDBJXML> <LOCUS>AB000003</LOCUS> <LENGTH>641</LENGTH> <MOLECULAR_FORM>linear</MOLECULAR_FORM> <DIVISION>PLN</DIVISION> <LAST_UPDATE>12-SEP-2002</LAST_UPDATE> <DEFINITION>Rhizoctonia solani genes for 18S rRNA, 5.8S rRNA, 28S rRNA,partial and complete sequence , isolate:1556.</DEFINITION> <ACCESSION>AB000003</ACCESSION> <VERSION>AB000003.1</VERSION> <KEYWORDS>.</KEYWORDS> ... |