[Tech] perl+mysql

[Marcello Semboli]

Leonardo Boselli wrote:
> Trovo tanti esempi di collegamento di PHP a Mysql, ma dove trovo gli 
> esempi per collegare perl a mysql ?


Servito  :-)

#!/usr/bin/perl
use DBI;
use IO::File;
use strict;
my $nRichiesta = $ARGV[0];
my $dbh; # Handle del database
my $sUserDB = "pinco";
my $sPwdDB = "******";
$dbh = DBI->connect("DBI:Oracle:FOO",$sUserDB,$sPwdDB);
my @giorno = ('00' .. '31');
my @mese   = ('01' .. '12');
my $anno   = 0;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$anno = 1900 + $year;
my $q = "update tabella1 set dt_iniz='$anno$mese[$mon]$giorno[$mday]' 
where id_richiesta=$nRichiesta";
my $sth = $dbh->prepare($q);
$sth->execute;
$dbh->disconnect;
exit 0;

Puoi cambiare agevolmente database solo cambiando la riga "DBI->connect".
Puoi leggere le righe e referenziare i campi per posizione o per nome.
Vedi per esempio:
my $sth = $dbh->prepare($q);
$sth->execute;
$riga = $sth->fetchrow_hashref
$_ = $riga->{COGNOME};

Ancora mi stupisco come il perl abbia  una DBI così ben progettata 
mentre php e python ancora no. IMHO ovviamente.


-- 
Marcello Semboli

Amare non è donare ma condividere.
			Raoul Follerau