Multilingual Spell Checker
am 16.11.2005 23:59:49 von germonprezI've been hammering away at the multilingual spell checker for a while
now and am having little luck. I was wondering if someone on this group
has gotten this thing to work with Perl:
http://www.strikeiron.com/ProductDetail.aspx?p=143
I can get a whole variety of errors to come back, but never the
response I'm looking for (which would be getting this text spell
checked). I've gotten 404s, Invalid user (I have a key but you'll have
to get your own) -- Mine cost me $10 and I can't use it!, etc.
Ugh.
TIA.
matt
#!/usr/bin/perl -w
use SOAP::Lite + trace => 'debug';
$text = 'qwick brown fox is a good guy';
my $spell=SOAP::Lite
->service('http://ws.strikeiron.com/wsdirect/spellchecker?WS DL');
#->proxy('http://ws.strikeiron.com/wsdirect/spellcheckerdoc' )
#->proxy('http://www.wsdirect.net/axis/services/spellchecker doc')
#->uri('http://ws.strikeiron.com/wsdirect/spellchecker/Spell erServiceService')
#->on_action(sub{sprintf '' });
$header = SOAP::Header
->name("LicenseInfo"=>\SOAP::Data->value(
SOAP::Data->name("RegisteredUser"=>\SOAP::Data->value(
SOAP::Data->name("UserID"=>'111111111111'),
SOAP::Data->name("Password"=>"")))));
$somspell = $spell
->GetMisspelledIndices( $header,
SOAP::Data->name("key"=>'11111111111111'),
SOAP::Data->name("text"=>$text),
SOAP::Data->name("dicCode"=>'32'));