MSDAPI: pfclient.pl Source File

00001 #!/usr/bin/perl
00002 
00003 use SOAP::Lite;
00004 my $service = SOAP::Lite
00005    
00006         -> service('http://www.ebi.ac.uk/msd/api/msd_soap_service.wsdl');
00007 
00008 $service-> msdFasta( 2 , ['<fasta><evalue>1e-10</evalue><library>pdb</library><sequence>'.
00009 'QLLAHLNKEQQEAVRTTEGPLLIMAGAGSGKTRVLTHRIA'.
00010 'YLMAEKHVAPWNILAITFTNKAAREMRERVQSLLGGAAEDVWISTFHSMCVRILRRDIDRIGINRN'.
00011 'FSILDPTDQLSVMKTILKEKNIDPKKFEPRTILGTISAAKNELLPPEQFAKRASTYYEKVVSDVYQ'.
00012 'EYQQRLLRNHSLDFDDLIMTTIQLFDRVPDVLHYYQYKFQYIHIDEYQDTNRAQYTLVKKLAERFQ'.
00013 'NICAVGDADQSIYRWRGADIQNILSFERDYPNAKVILLEQNYRSTKRILQAANEVIEHNVNRKPKR'.
00014 'IWTENPEGKPILYYEAMNEADEAQFVAGRIREAVERGERRYRDFAVLYRTNAQSRVMEEMLLKANI'.
00015 'PYQIVGGLKFYDRKEIKDILAYLRVIANPDDDLSLLRIINVPKRGIGASTIDKLVRYAADHELSLF'.
00016 'EALGELEMIGLGAKAAGALAAFRSQLEQWTQLQEYVSVTELVEEVLDKSGYREMLKAERTIEAQSR'.
00017 'LENLDEFLSVTKHFENVSDDKSLIAFLTDLALISDLDELD</sequence></fasta>' , 'z881ade2af7606dc3603ad08a48604727']);
00018 
00019 
00020