Tradutor Google
Publicado por Fábio Berbert de Paula 11/12/2002
[ Hits: 25.428 ]
Homepage: https://fabio.automatizando.dev
Script usado para traduzir texto em diversos idiomas usando a engine do translate.google.com como fonte de pesquisa.
<!-- tr.google.php -->
<?
/*
-------------------------------------------------------------------
Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
http://www.vivaolinux.com.br
Script usado para traduzir texto em diversos idiomas usando a engine
do translate.google.com como fonte de pesquisa.
Rio de Janeiro, 25/09/2002
-------------------------------------------------------------------
*/
$traducao = '-';
// se text está definido, temos texto a traduzir
if ($text) {
$traducao = traduzir($text,$langpair);
}
?>
<html>
<head>
<title>tr.google.php</title>
<style>
<!--
body {margin-right: 1em; margin-left: 1em;}
-->
</style>
</head>
<body bgcolor="#ffffff" text="#000000" link="#0000cc" vlink="551a8b"
alink="#ff0000">
<table width="100%" border=0 cellspacing=0 cellpadding=1>
<tr bgcolor=#ffffff>
<td>
<form method=post>
<font face="arial,sans-serif" size=-1>Traduzir texto:</font>
<br>
<textarea name=text rows=5 cols=45 wrap=PHYSICAL><? echo $text; ?></textarea><br>
<font face="arial,sans-serif" size=-1>De</font>
<select name=langpair>
<option value="en|de">Inglês para Alemão</option>
<option value="en|es">Inglês para Espanhol</option>
<option value="en|fr">Inglês para Francês</option>
<option value="en|it">Inglês para Italiano</option>
<option value="en|pt" selected>Inglês para Português</option>
<option value="de|en">Alemão para Inglês</option>
<option value="de|fr">Alemão para Francês</option>
<option value="es|en">Espanhol para Inglês</option>
<option value="fr|en">Francês para Inglês</option>
<option value="fr|de">Francês para Alemão</option>
<option value="it|en">Italiano para Inglês</option>
<option value="pt|en">Português para Inglês</option>
</select>
<input type=hidden name=hl value="en">
<input type=hidden name=ie value="Unknown">
<input type=hidden name=oe value="ASCII">
<input type=submit value=" Traduzir ">
</form>
</td></tr>
<tr><td>
<br><br>
<font face="arial,sans-serif" size=-1>
Texto traduzido:<Br>
<pre><? echo $traducao; ?></pre>
</font>
</table>
</body>
</html>
<?
function traduzir($text,$langpair) {
// definição de variáveis
$host = 'translate.google.com';
$vars = "hl=en&ie=Unknown&oe=ASCII&langpair=$langpair&text=" . urlencode($text);
$url = "/translate_t?$vars";
// efetuando conexão com o google
$fp = fsockopen ($host, 80, $errno, $errstr, 30);
if (!$fp) {
echo "Ocorreu um erro ao tentar conexão com $host: $errstr ($errno)<br>\n";
exit;
} else {
$addinfo .= "Accept-Language: en\r\nAccept-Charset: iso-8859-1,*,utf-8\r\n";
fputs ($fp, "GET $url HTTP/1.1\r\nHost: $host\r\n$addinfo\r\n");
while (!feof($fp)) {
$html .= fgets ($fp,128);
}
fclose ($fp);
}
// removendo quebras de linhas do resultado
$html = ereg_replace("\n"," ",$html);
// capturando o texto traduzido
ereg("name=q rows=[0-9]* cols=[0-9]* wrap=PHYSICAL>(.*)</textarea>",$html,$saida);
$traducao = $saida[1];
$traducao = ereg_replace(">.*$","",$traducao);
return($traducao);
}
?>
PHP Script para testar ping de varios enderecoes em arquivo TXT
O Journal no Linux para a guarda e consulta de logs do sistema
A evolução do Linux e as mudanças que se fazem necessárias desde o seu lançamento
Maquina modesta - a vez dos navegadores ferrarem o usuario
Fscrypt: protegendo arquivos do seu usuário sem a lentidão padrão de criptograr o disco
Sway no Arch Linux: configuração Inicial sem enrolação
Resolvendo o bloqueio do Módulo Warsaw no Arch Linux (Porta 30900)
Continuando meus tópicos anteriores (1)
Saída de loop após teste de if. (2)
Governo da França vai trocar Windows por Linux (9)
Warsaw não é reconhecido no Google Chrome 147.0.7727.55 [RESOLVIDO] (9)









