@related : [[Debian]] [[Programming]] [[Lang]] [[Parse]] * http://Perl.com * http://www.linuxgenuineadvantage.org/source/ [[XML]] : http://www.xml.com/pub/rg/XML_and_Perl_Tutorials Standard perl Path : @INC (@INC contains: * /etc/perl * /usr/local/lib/perl/5.8.4 * /usr/local/share/perl/5.8.4 * /usr/lib/perl5 /usr/share/perl5 * /usr/lib/perl/5.8 /usr/share/perl/5.8 * /usr/local/lib/site_perl * /usr/local/lib/perl/5.8.3 /usr/local/share/perl/5.8.3 perl -MCPAN -e shell ==== [[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 ===Misc=== * [[RzR]] : http://linuxfr.org/forums/15/4815.html * http://www.unixgarden.com/index.php/web/construire-des-robots-pour-le-web-2 {{http://www.legeny.sk/irc/img/cats.jpg?nocache}} {{http://glyphic.s3.amazonaws.com/ozone/mark/periodic/Periodic%20Table%20of%20the%20Operators%20A4%20300dpi.jpg}}