Perl e arquivo / Perl sql

1. Perl e arquivo / Perl sql

helloworldd
(usa Slackware)

Enviado em 11/02/2009 - 21:35h

Presciso criar um arquivo que salve determinados dados em um .txt..
A função eu já consigo fazer...
Porém eu quero que ele salve tudo em apenas 1 txt, e as vezes eu presciso rodar o programa 2 vezes ou mais...
Ai quando eu rodo o script ele substitui tudo que já tem e imprime os novos dados no txt...
Eu quero que ele adicione os dados no FINAL do arquivo entendem? Como fazer?

-

Gostaria de saber como usar perl + sql, ou perl + access..
Gostaria de usar um select e que ele mostrasse o resultado da query na tela, em um print por exemplo :)
Como fazer?

0 0

Quote

2. Re: Perl e arquivo / Perl sql

Felipe Domingos
(usa Slackware)

Enviado em 12/02/2009 - 08:49h

Opa,

perl + sql, vou te mostrar um exemplo que fiz esses dias:
arquivo select.pl:
-----------------------------------------------------------
#!/usr/bin/perl

# load module
use DBI;
use strict;
#use warnings;

# connect
my $dbh = DBI->connect("DBI:Pg:dbname=teste;host=localhost", "postgres", "abc123", {'RaiseError' => 1});

print "Tabela ETO: \n";
# execute SELECT query
my $sth = $dbh->prepare("SELECT * FROM eto");
$sth->execute();

# print
while(my $ref = $sth->fetchrow_hashref()) {
print "$ref->{'id_eto'} $ref->{'id_mail'} $ref->{'mto'}\n";
}
-----------------------------------------------------------
Ele faz o select e imprime na tela o resultado, os $ref fazem referencia ao campos da tabela no banco de dados.

Quanto a escrever no texto, em bash use a saida para ">>" que adiciona ao fim do arquivo.
Em perl ao abrir o arquivo use ">>arquivo.txt" que tem o mesmo comportamento do bash, ou seja adiciona no final do arquivo.

tem um site com umas coisas que podem ajudar bastante:

http://www.numaboa.com/informatica/tutos/perl-cgi/

De lá vc consegue tirar bastante coisa para usar.

T+

0 0

Quote