API do Bing para traduzir textos [Perl]

API do Bing para traduzir textos

Publicado por Perfil removido (última atualização em 08/10/2013)

[ Hits: 4.010 ]

Download tradutor.pl

1 0

Denuncie Favoritos Indicar

A partir dessa API podemos traduzir textos em diferentes linguagens para o português.

Esconder código-fonte

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

use strict;
use WWW::Mechanize;

our $RTTAppID;
print "[+] Aguarde ...\n";
my $mech = WWW::Mechanize->new();
$mech->get( 'http://www.bing.com/translator/' );

if($mech->content() =~ /Default.Constants.RTTAppID = '(.*)'/){
   $RTTAppID = $1;
} else {
   print "[-] Erro\n";
   exit(1);
}

while(1){
   print "\$ ";
   my $texto = <>;
   $texto =~ s/ /+/gi;
   chomp($texto);
   my $url = ( "http://api.microsofttranslator.com/v2/ajax.svc/TranslateArray2?appId=\"$RTTAppID\"&texts=[\"".$texto."\"]&from=\"\"&to=\"pt\"&oncomplete=_mstc1&onerror=_mste1" );
   $mech->get( $url );
   if($mech->content =~ /"TranslatedText":"(.*?)"/) { print "$1\n"; }
}

Scripts recomendados

Baixar o Diário Oficial da União e salvar como um único PDF completo

Obtendo o IP público (Internet) usando o Perl

Getter - Gerencia downloads

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Sarg Semanal

Comentários

Nenhum comentário foi encontrado.