seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Scripts » Perl » API do Bing para Traduzir Textos

API do Bing para Traduzir Textos

Ir para baixo  Mensagem [Página 1 de 1]

1API do Bing para Traduzir Textos Empty API do Bing para Traduzir Textos Sex maio 10, 2013 8:33 pm

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl -w
# By MMxM

use strict;
use WWW::Mechanize;

our $RTTAppID;

my $mech = WWW::Mechanize->new();
$mech->get( 'http://www.bing.com/translator/' );

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

print "[*] Texto para traduzir: ";
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 "[Tradução] $1\n"; }

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » API do Bing para Traduzir Textos

Permissões neste sub-fórum
Não podes responder a tópicos