API do Bing para traduzir textos
Publicado por Perfil removido (última atualização em 08/10/2013)
[ Hits: 3.537 ]
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"; } }
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Postando mensagem no Facebook com Perl
Tweetin - Poste tweets pelo terminal
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin