clicsis
(usa Debian)
Enviado em 19/04/2008 - 11:45h
Pessoal,
Bom dia.
Estou precisando de um "Shell Script" ou "Perl" que conecte a um banco de dados hospedado em um outro servidor e liste os dados de uma determinada tabela do banco. O Objetivo final é gerar em meu servidor um arquivo contendo essas tais informações para um controle.
Tentei alguns scripts dentre eles o "Perl" listado abaixo sem obter excito, pediria o auxílio dos amigos para que me orientem o que pode está errado no exemplo abaixo ou me informem um "Shel Script" que faça essa atividade.
Exemplo do Perl que tentei:
==============================================
#!/usr/bin/perl
use Mysql;
print "Content-type: text/html \n\n";
# Configuracoes basicas
$host = "200.128.84.31";# Exemplo servidor
$database = "nomebanco";
$tablename = "nometabela";
$user = "nomeusuario";
$pw = "minhasenha";
# Conectando
$connect = Mysql->connect($host, $database, $user, $pw);
# Selecionando o Banco
$connect->selectdb($database);
# Definindo uma Query/Pesquisa
$myquery = "SELECT * FROM $tablename";
# Executando a Query/Pesquisa
$execute = $connect->query($myquery);
# Imprimindo o cabecalho no forma de tabela
print "<table border='1'><tr>
<th>id</th>
<th>name</th>
<th>email</th></tr>";
# Imprimindo o conteúdo nas linhas da tabela
while (@results = $execute->fetchrow()) {
print "<tr><td>"
.$results[0]."</td><td>"
.$results[1]."</td><td>"
.$results[2]."</td></tr>";
}
# Fechando a tabela
print "</table>";
==============================================
Observação:
É claro que alterei os dados da área "# Configurações básicas" de acordo com as reais.
Desde já, agradeço a força.