Connessione MySQL e PERL | Altri linguaggi

Salve a tutti sto cercando un esempio di connessione MYSQL PERL, ma non riesco a trovare un esempio semplice, qualcuno potrebbe aiutarmi ?

Grazie

Ciao, googlando un pò ho trovato quest'esempio che mi sembra il più semplice:

#!/usr/bin/perl w
use strict;

# Load Modules
use DBI;
use CGI;


my $q = new CGI;

# Connect to MySQL
my $dbh = DBI->connect("DBI:mysql:mybook:localhost",
"username","password" )
|| die "Could not connect to database: "

. DBI->errstr;

my $sql_stmnt = "SELECT book_id, titolo, editore
FROM books
WHERE author = 'Dan Brown'";
my $sth = $dbh->prepare($sql_stmnt);

$sth->execute();

# Retrieve results and reference number
my $results = $sth->fetchall_arrayref();
$sth->finish();
$dbh->disconnect();

# Web page

print

$q->header(type=>'text/html' ),
$q->start_html;

# Loop through array of arrays

foreach my $record (

$result){<br /><br />         # Parse each record array and display <br /><br />         my ($book_id, $titolo, $editore) =

l'ho tratto dal sito http://www.unixreview.com/documents/s=8925/ur0312c/

Spero possa essere utile 8-)

Ultima modifica 11 Luglio, 2010 01:15 di root

Grazie Mille, la procedura da te indicata mi è stata molto utile.

Ciao