CATH

#!/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";
}
CATH Documentation
