wdict.pl

来自「It provides a base of DICT web service (」· PL 代码 · 共 53 行

#!/usr/bin/perl 

use SOAP::Lite +trace;
#use SOAP::Lite;

$soap = SOAP::Lite                                  
  -> uri('urn:wdict')                                             
  -> proxy('http://localhost:9999/cgi-cai/webdict2.cgi'
#   -> proxy('http://gnudict.cosoft.org.cn/cgi-bin/webdict.cgi',
#   proxy => ['http'=>'proxy.com:80']
	);
$db = SOAP::Data->type('string')->name('db')->value("0"); 
$word = SOAP::Data->type('string')->name('word')->value("hello"); 
$comm = SOAP::Data->type('string')->name('commands')->value("define+match"); 
$strat = SOAP::Data->type('string')->name('strategy')->value("similar"); 

$temp= $soap->lookup($db,$word,$comm,$strat);
&output($temp);

$query = SOAP::Data->type('string')->name('query')->value("larry"); 
$temp= $soap->status($query);
&output($temp);

$client = SOAP::Data->type('string')->name('client')->value("hello.pl"); 
$filter = SOAP::Data->type('string')->name('filter')->value("all"); 
$dictversion = SOAP::Data->type('string')->name('dictversion')->value("DiCT 0.0.1"); 

#$temp= $soap->getdatabase($client,$filter,$dictversion);
#&output($temp);

sub output
{
	($temp)=@_;
	if($temp->fault) {
		print $temp->faultcode," ",$temp->faultstring,"\n";
	}else {
		@result = $temp->paramsall;
		foreach $res(@result) {
			@array=@$res;
#			print "hello ",$#array;
			foreach $arr (@array){
				%hh = %$arr;
				foreach $value (keys %hh) {
                	print $value ,"=", $hh{$value},"\n";
        		}
			}
			if($#array!=0){
				print $res,"\n";
			}
		}
	}
}