Example of Translating in Perl with WWW::Babelfish

June 17th, 2011 by Regaz
#!/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

(Visited 5 times, 1 visits today)
Share on Tumblr

Tags: , ,


No Responses to “Example of Translating in Perl with WWW::Babelfish”

  1. I love your articles. Nicely presented information in this post, I prefer to read this kind of stuff.It got more knowledge .I is really appreciate your site.Thanks for making it.

  2. Many Thanks for Great Appreciation & Support!You are an Expert ;)Now I'll be still more Motivated toProduce New Good Posts…