Re: Perl ...

Top Page

Reply to this message
Author: sCALP
Date:  
To: guilde
Subject: Re: Perl ...
> Bonjour,
>
> je suis à la recherche d'un exemple de programme assez propre en PERL qui

se
> connecte sur une base Mysql... Quelqu'un aurait-il ça dans ses tiroirs, ou
> une url ?
>
> Cordialement,
>
> Philippe B.


L O Phil, voici un pico exemple :

#!/usr/bin/perl

use DBI;

$dbh = DBI->connect("DBI:mysql:database=DBNAME","USER","PASSWD");

$max_id = $dbh->selectrow_array("SELECT MAX(id) FROM date");

$query = "CREATE TABLE team (j INT PRIMARY KEY NOT NULL DEFAULT 0,wu INT NOT
NULL DEFAULT 0";
$dbh->do($query);

$sth = $dbh->prepare("SELECT wu FROM team WHERE j=?");
for ($j=1; $j<=30; $j++) {
$sth->execute($j);
($wu) = $sth->fetchrow;
push(@{"stats".$i},$wu);
}
$sth->finish;

$dbh->disconnect();