Babelfish Module

[Nova980]

Help,

Having trouble getting the translation... code follows:

Getting an error -> usage: ./translate.pl autobad.log at babel.pl line 9. Thanks

#!/usr/bin/perl
 use strict; use warnings;
 use Babelfish;         

 # input file to translate
 # specified as command line argument
 my $input_file = shift;
 if (not defined $input_file) {
     die "usage: ./translate.pl autobad.log";
 }         

 # create the Babelfish service
 my $service = Babelfish->new(
     service => 'Babelfish',
 );         

 # check for errors
 if (not defined $service) {
     die "Babelfish server unavailablen";
 }         

 # open input file to be translated
 open my $ifh, '<', $input_file
     or die "Could not open $input_file for reading: $!n";         

 # translate
 # write translation to output file handle
 my $ret = $service->translate(
     source          => 'Chinese',        # source language
     destination     => 'English',        # destination language
     text            => $ifh,             # file handle to read from
     ofh             => *STDOUT          # file handle to write to
 );
 if (not defined $ret) {
     print "Error while translating to English";
 }

 

[audiopro]

What is the value of [red]$input_file[/red] after this line?

my $input_file = shift;

Keith

http://www.studiosoft.co.uk

 

[Nova980]

input_file = autobad.log

 

[KevinADC]

if $inputfile has a true value there is no reason that the die function should be evaluated and return a message. Show how you are calling the script from the command line.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Nova980]

 perl babelfish.pl

I want the script to read the input file "autobad.log" and eventually write a log with the English interpretation of all Chinese characters.

#!/usr/bin/perl
 use strict; use warnings;
 use Babelfish;         

 # input file to translate
 # specified as command line argument
 my $input_file = shift;
#$input_file = "autobad.log";
$ifh = "autobad.log";
 if (not defined $input_file) {
     die "usage: ./translate.pl autobad.log";
 }         

 # create the Babelfish service
 my $service = [URL unfurl="true"]WWW::Babelfish->new([/URL]
     service => 'Babelfish',
 );         

 # check for errors
 if (not defined $service) {
     die "Babelfish server unavailablen";
 }         

 # open input file to be translated
 open my $ifh, '<', $input_file
     or die "Could not open $input_file for reading: $!n";         

 # translate
 # write translation to output file handle
 my $ret = $service->translate(
     source          => 'Chinese',        # source language
     destination     => 'English',        # destination language
     text            => $ifh,             # file handle to read from
     ofh             => *STDOUT          # file handle to write to
 );
 if (not defined $ret) {
     print "Error while translating to English";
 }

 

[audiopro]

'autobad.log' should be a param from the command line.

Your last example should fall over because $ifh is not defined. You then define it later.

Uncomment - #$input_file = "autobad.log";
Remove - $ifh = "autobad.log";

Keith

http://www.studiosoft.co.uk