pubblicato più di 2 anni fa
Commenti(0)
Connessione a MySQL con Perl
Una ricetta per la connessione a MySQL dal linguaggio Perl
Un semplice esempio per configurare la connessione a MySQL con Perl
La versione originale di questo articolo è tratta da http://santecaserio.altervista.org
Un semplice esempio:
1#!/usr/bin/perl -w 2use DBI; 3use strict; 4 5# parametri di connessione 6my $user= "root"; 7my $password= "root"; 8my $host= "localhost"; 9 10# mi connetto; se non riesco, visualizzo il messaggio di errore 11my $dbh= DBI->connect("dbi:mysql:database=mysql;host=$host",$user,$password) 12or die $DBI::errstr; 13 14# preparo l'istruzione SQL 15my $sth= $dbh->prepare("SELECT VERSION()") 16or die $DBI::errstr; 17 18# eseguo l'istruzione 19$sth->execute(); 20 21# stampo il numero di righe restituito 22my $numRows = $sth->rows; 23print "Rows returned: $numRows\n"; 24 25# stampo le righe restituite 26my @row; 27while ( @row = $sth->fetchrow_array ) 28{ 29 print "@row\n"; 30} 31 32# libero la memoria distruggendo l'oggetto 33$dbh->disconnect or die $DBI::errstr;
Condividi su:
Esprimi un voto:
Argomenti chiave:
MySQL Report un tool di shell per tenere tutto sotto controllo