Example Of Translating in Perl With WWW::Babelfish

June 17, 2011 | By Duchateaux.
#!/opt/local/bin/perl -w
use strict;
use warnings;
use WWW::Babelfish;
$obj = new WWW::Babelfish(service => Babelfish, agent => Mozilla/8.0, proxy => "");
die("Babelfish server unavailablen") unless defined($obj);
$it_text = $obj->translate(
'source' => 'Italian',
'destination' => 'German',
'text' => 'Questo serve solo per testare',
'delimiter' => "n",
print $it_text;

Take a Look.

Bloogger Blogger, Google Blogger, Google Google

Linux Install VMware Tools Linux Mint 12

QuickChic Theme • Powered by WordPress