CATH

User Tools

Site Tools

You are here: index » projects » funcnet » perlsample
Trace:
projects:funcnet:perlsample

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision		Previous revision
projects:funcnet:perlsample [2008/10/28 13:02] – created cleggprojects:funcnet:perlsample [2008/10/28 13:04] (current) – clegg
Line 1: Line 1:
 +  #!/usr/bin/perl -w
 +  
 +  # Very simple Perl client script for FuncNet prediction services
 +  
 +  use strict;
 +  use warnings;
 +  
 +  use Data::Dumper;
 +  
 +  use XML::Compile::WSDL11;
 +  use XML::Compile::Transport::SOAPHTTP;
 +  use XML::Compile::Schema;
 +  
 +  my $geco_wsdl = "GecoService.wsdl"; # You must download this yourself (or use the full CPAN client)
 +  
 +  # warn "XML::Compile::WSDL11->new( $geco_wsdl )";
 +  
 +  my $wsdl = XML::Compile::WSDL11->new( $geco_wsdl );
 +  
 +  # warn "got: $wsdl";
 +  
 +  my @op_defs = $wsdl->operations();
 +  
 +  # warn "operations: ", join (", ", Dumper( @op_defs ) );
 +  
 +  # warn "\$wsdl->compileClient( '{http://cathdb.info/FuncNet_0_1/}GecoService' );";
 +  
 +  my $op   = $wsdl->operation( 
 +                  operation   => 'ScorePairwiseRelations', 
 +                  port        => 'GecoPort', 
 +                  service     => '{http://cathdb.info/FuncNet_0_1/}GecoService' ,
 +                  binding     => '{http://cathdb.info/FuncNet_0_1/}GecoBinding'
 +               );
 +  
 +  my $op_call = $op->compileClient();
 +  
 +  # proteins1 is query set, proteins2 is reference set
 +  my $parameters = {
 +      proteins1 => { p => [ 'A3EXL0', 'A4D2E0', 'Q8NFN7', 'O75865', 'A8K8W3', 'A8K3I6' ] },
 +      proteins2 => { p => [ 'Q5SR05', 'Q9H8H3', 'P22676', 'Q9UHT8', 'P56277', 'P49366' ] } 
 +  };
 +  
 +  my ( $answer, $trace ) = $op_call->( parameters => $parameters );
 +  
 +  # warn Dumper( $trace );
 +  
 +  # warn "Answer:", Dumper(  $answer->{ parameters } );
 +  
 +  print "Prot 1\tProt 2\tP-value\n";
 +  
 +  foreach my $result ( @{ $answer->{ parameters }->{ s } } )
 +  {
 +      print $result->{ p1 } . "\t" . $result->{ p2 } . "\t" . $result->{ pv } . "\n";
 +  }
  

Page Tools

Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 4.0 International
CC Attribution-Noncommercial-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki