API do Bing para traduzir textos
Publicado por Perfil removido (última atualização em 08/10/2013)
[ Hits: 3.738 ]
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"; } }
Pesquisar palavras no Diário Oficial da União
Postando mensagem no Facebook com Perl
Perl Check Port - Entenda melhor os sockets
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Os empreguim de meu Deus estão cada vez mais tecnológicos (0)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (28)
Meu PC perde o boot de várias distros Linux após ficar desligado (4)