API do Bing para traduzir textos
Publicado por Perfil removido (última atualização em 08/10/2013)
[ Hits: 3.803 ]
A partir dessa API podemos traduzir textos em diferentes linguagens para o português.
#!/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"; } }
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (11)
Boot do PosRog so funciona em notebook (1)