Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

c4rlos

Duvida em perl

Mensagens Recomendadas

c4rlos    0
c4rlos

Boas tardes,

Primeiro post e logo uma duvida  :)

É o seguinte, estou a utilizar perl para aceder a uma base de dados e depois colocar os valores da pesquisa num array. Até aqui tudo bem, mas parece que os valores são colocados todos na posição 0 do array e eu queria que ficasse um valor por posição para depois poder ir la manipula-los. 

Aqui vai o código

#!/usr/bin/perl

use LWP;
use DBI;

#funçao para ler IPs dos modulos registados na base de dados
$dbh = DBI->connect('dbi:mysql:CALab','root','123abc!')
or die "Connection Error: $DBI::errstr\n";

$sql = "select IP from Modulos";
$sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
while(@row = $sth->fetchrow_array())
{
print "$row[1]\n";
}
$sth->finish;

Ah sou novo nestas andanças do perl  :D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Dkid    0
Dkid

Acabei por não entender como resolves-te :S

Mas pelo que disse o Betovsky e pela minha análise ao código deduzo que fosse aqui o problema:

while(@row = $sth->fetchrow_array())
{
print "$row[1]\n";
}
$sth->finish;

no qual : print "$row[VARIAVEL]\n";

foi isso que alteras-te ?

Fiquei curioso

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade