 |
#!c:/perl/bin
use DBI;
use strict;
# Ouvrir une connexion sur la base de données 'Ventes'
my $db_co
|
Base de Données: Exemple de gestion des exceptions
| |
#!/usr/bin/perl
use DBI;
$dbh = DBI->connect('dbi:mysql:database', 'username', 'password',
|
Excécution d’une requête de sélection à l’aide de DBI
| |
#!/usr/bin/perl
use DBI;
$dbh = DBI->connect('dbi:mysql:database', 'username', 'password',
|
Obtenir la liste des DSN des Drivers disponible
| |
#!/usr/bin/perl
use strict;
use DBI;
my @drivers;
@drivers = DBI->available_drivers;
foreach my
|
Afficher la liste des Drivers de base de données disponible
| |
#!/usr/bin/perl
use strict;
use DBI;
my @drivers = DBI->available_drivers();
print "La liste des
|
Perl: Vider une Base de données DBM
| |
#!/usr/bin/perl
use AnyDBM_File;
my $fichier_BD="c:/BD/Etudiant.dbm";
unlink $FILENAME
or di
|
Exemple de création d’un fichier de base de données DBM portable
| |
#!/usr/bin/perl
use strict;
use warnings;
use AnyDBM_File;
use POSIX;
my %dbm;
my $fichier_BD="c:/B
|
Exemple d’utilisation de la fonction ‘dbmopen’ pour se connecter à une Base de données DBM
| |
#!/bin/perl
use AnyDBM_File;
use strict;
# Connexion à la Base de données
dbmopen(my %dbm, "c:/B
|
Lire la valeur d’une colonne de la base de données DBM
| |
#!/bin/perl
use AnyDBM_File;
my $fichier_BD="c:/BD/Etudiant.dbm"; #Le nom de la Base de donné
|
DBI: Exécution des requêtes SQL sur un fichier de format CSV
| |
#!/usr/bin/perl
use DBI;
$csv_connect = DBI->connect("dbi:CSV:f_dir=c:/test.csv", "", "",
|