Description :
Exemple pour récupérer des données d'une table MySql en Perl
Portion de code
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/perl
use DBI;
$dbh=DBI->connect("DBI:mysql:nomdelabase:localhost","user","password");
my $sth = $dbh->prepare("Select * from table");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
print $ref->{'champ'},"\n";
}
$dbh->disconnect;
|
|
Informations rapides
