perl [www.who.is.free.fr]

[[Debian]]

http://wiki.debian.net/index.cgi?PerlFAQ

apt-get install dh-make-perl

dh-make-perl --build --cpan Lingua::Translate
cd Lingua-Translate-0.06/ && fakeroot ./debian/rules binary ; cd -
sudo dpkg -i liblingua-translate-perl_0.06_all.deb # Errs

dh-make-perl --build --cpan Pod::constants
cd Pod-Constants-0.15/ && fakeroot ./debian/rules binary ; cd -

dh-make-perl --build --cpan Unicode::maputf8
cd Unicode-MapUTF8-1.09/ && fakeroot ./debian/rules binary ; cd -

sudo dpkg -i  libpod-constants-perl_0.14-1_all.deb \
 libunicode-maputf8-perl_1.09-1_all.deb \
 liblingua-translate-perl_0.06_all.deb

# Unpacking replacement libpod-constants-perl ...
# Unpacking replacement libunicode-maputf8-perl ...
# Setting up libpod-constants-perl (0.14-1) ...
# Setting up libunicode-maputf8-perl (1.09-1) ...
# dpkg: dependency problems prevent configuration of liblingua-translate-perl:

# liblingua-translate-perl depends on libpod-constants-perl (>= 0.15-1);
# however:
# Version of libpod-constants-perl on system is 0.14-1.

# liblingua-translate-perl depends on libunicode-maputf8-perl (>= 1.09-2);
# however:
# Version of libunicode-maputf8-perl on system is 1.09-1.

# dpkg: error processing liblingua-translate-perl (--install):
# dependency problems - leaving unconfigured
# Errors were encountered while processing:
# liblingua-translate-perl

apt-get -f install
# [[ToDo]]

http://search.cpan.org/~durist/WWW-Babelfish-0.12/Babelfish.pm

fakeroot dh-make-perl --build --cpan IO::String

sudo apt-get install libio-string-perl libwww-babefish-perl

use WWW::Babelfish;
$obj = new WWW::Babelfish(
service => 'Google' # or 'Babelfish'
, agent => 'Mozilla/8.0'
#, proxy => 'myproxy'
);

die( "Babelfish server unavailable\n" ) unless defined($obj);

$src='My hovercraft is full of eels';

$french_text = $obj->translate( 'source' => 'English',
                                'destination' => 'French',
                                'text' => $src ,
                                'delimiter' => "\n\t" );

print "src= $src\n" ;
print "dest= $french_text\n" ;
die("Could not translate: " . $obj->error) unless defined($french_text);
@languages = $obj->languages;

will output :

src= My hovercraft is full of eels
dest= Mon aéroglisseur est plein des anguilles

http://www.debian.org/doc/manuals/reference/ch-program.en.html#s-perl

http://www.debian.org/doc/packaging-manuals/perl-policy/

Translation

http://search.cpan.org/~samv/Lingua-Translate-0.06/lib/Lingua/Translate.pm

cpan install Lingua::Translate

####

perl « EOF

use Lingua::Translate;

my $xl8r = Lingua::Translate->new(src => "en",
                                 dest => "de")
   or die "No translation server available for en -> de";

my $english = "I would like some cigarettes and a box of matches";

my $german = $xl8r->translate($english); # dies or croaks on error

# prints "Mein Luftkissenfahrzeug ist voll von den Aalen";
print $german;

EOF

# EOF

JokE

#!/usr/bin/perl
                ''=~('('.('?').
           '{'.('['^'+').('['^')').(
        '`'|')').('`'|'.').('['^('/')).
      '"'.('{'^')').('`'|'%').('`'|'!').(
    '`'|'$').('{'^'[').('['^'/').('`'|'(').
   ('`'|'%').    ('{'^('[')).(    '`'|"'").(
  '['^'.').(      '`'|"\)").(      '`'|'$').(
 '`'|"\%").(      '{'^"\[").(      '`'|"\!").(
'`'|"'").('`'    |'!').(('`')|    ')').('`'|'.'
).('!'^'+').'"'.'}'.')');$:='.'^'~';$~='@'|'(';
$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=
')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['
&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=(')')^
"\[";  $/='`'|'.';$,='('^'}';$\='`'|'!';  ($:)=
"\)"^   '}';$~='*'|'`';$^='+'^('_');$/=   "\&"|
'@';$,    ='['&'~';$\=','^'|';$:='.'^    '~';$~
 ="\@"|     '(';$^=')'^'[';$/="\`"|     '.';$,
  ="\("^      '}';$\='`'|"\!";$:=      (')')^
   '}';$~=        '*'|'`';$^=        '+'^'_'
    ;$/="\&"|                     ('@');$,=
      '['&'~';$\=             ','^'|';$:=
        '.'^'~';$~='@'|'(';$^=')'^"\[";
           $/='`'|'.';$,='('^'}';$\=
                '`'|'!';$:=')';

[[Language]] Translation

http://directory.google.com/Top/Science/Social_Sciences/Linguistics/Translation/Tools/Translation_Engines/

Google Language Tools - http://www.google.com/language_tools Translation of text and web pages between English and Spanish, German, French, Italian and Portuguese.

Babelfish - http://babelfish.altavista.com/ Translates text and web pages from one language to another, including English, German, Spanish, French, Italian, Portuguese, and Russian.

Systran - http://www.systransoft.com/ Free online web page and text translation. (The engine behind Alta Vista's translations). - English to French, German, Italian, Portuguese and Spanish.

SDL - http://www.freetranslation.com/ Free translation of web sites and text for Spanish, French, and German to English and English to Spanish, French and German, Italian and Portuguese.

http://dmoz.org/Computers/Software/Globalization/Computer_Aided_Translation/

http://www.skatelog.com/translate.htm