sábado, 11 de janeiro de 2014

[Perl] Google Tradutor

Traduz textos de diferentes idiomas para o português utilizando o Google Tradutor.
Img:


#!/usr/bin/perl -w
# By MMxM
# http://goo.gl/YznD0X

use strict;
use WWW::Mechanize;
use URI::Escape;
use Encode;

my $mech = WWW::Mechanize->new();
$mech->get('http://translate.google.com.br/');
while(1){
 print "\$ ";
 chomp(my $word=<>);
 $mech->get('http://translate.google.com.br/translate_a/t?client=t&sl=auto&tl=pt&hl=pt-BR&sc=2&ie=UTF-8&oe=UTF-8&uptl=pt&oc=2&prev=conf&psl&ptl&otf=1&it=sel.2826&ssel=3&tsel=0&q='.uri_escape($word));
 my $content = encode 'utf8', $mech->content;
 if($content =~ /("(.*?)",")/){
  print $2."\n";
 }
}

Nenhum comentário:

Postar um comentário