[Perl] Re: Perl digest, Vol 1 #250 - un ejemplito

[Roberto Ruiz]

Hola Rene, Dios te bendiga.

On Wed, Oct 16, 2002 at 10:08:36AM -0300, Rene Morales D. wrote:
> sres. muy educativo lo que planteaban sobre conecciones a BD. (se de que
> hablan, pero no entiendo nada)
> y por eso..., ¿tendrán por ahí en alguna carpeta olvidad de los años de
> inicio en su educación en DBI, DBD etc
> un pequeñito archivo de una conección a MySQL con Perl? para este servidor.
> 
> se agradecería :)

Espero que te sirva:

--- inicia script conecta.pl ---
#!/usr/bin/perl -w

use strict;
use DBI;

my $base = "expoempresas";
my $user = "usuario";
my $pass = "password";
my $tbl = "tabla";

my $sel = "select * from $tbl;";

my $dbh = DBI->connect("dbi:mysql:$base", $user, $pass) ||
        die "ERROR: conexión";

my $sth = $dbh->prepare($sel) || die "ERROR: selección";
$sth->execute();

while ( my @ren = $sth->fetchrow_array ) {
        print join(":", @ren), "\n";
}

$dbh->disconnect;
--- termina script conecta.pl ---

Digo, así nomás cómo que de inicio. :)

Sino, pues con:

perldoc DBI
perldoc DBD::mysql
perldoc DBI::FAQ

Puede darte un inicio. También entrar a:

http://www.perlmonks.org/

Si sabes inglés te puede ayudar mucho.

Saludos
Roberto Ruiz