Plusieurs select dans un script perl

Version imprimable

Bonjour,

J'aimerais savoir comment passer plusieurs SELECT dans un script perl.

Voici mon code fonctionnel pour un SELECT:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
 
use DBI;
 
#DB Connect
my $dbrapport = "dbi:mysql:maBD";
my $username = "uname";
my $password = "pswd";
 
my $dbconnect = DBI->connect($dbrapport, $username, $password) or  die "Database connection not made: $DBI::errstr";
 
my $sql = "SELECT date,nbr_subs INTO OUTFILE '/var/www/maDB/csv/data1.csv'
FIELDS TERMINATED BY ','
FROM BTS_SUBSCRIBER WHERE Ville='Acton-Vale POP' ORDER BY date DESC";
my $sth = $dbconnect->prepare($sql);
$sth->execute();

J'ai essayer ceci mais ça ne fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl -w
 
use DBI;
 
#DB Connect
my $dbrapport = "dbi:mysql:maBD";
my $username = "uname";
my $password = "pswd";
 
my $dbconnect = DBI->connect($dbrapport, $username, $password) or  die "Database connection not made: $DBI::errstr";
 
my $sql = 
 
"
 
SELECT date,nbr_subs INTO OUTFILE '/var/www/maDB/csv/data1.csv'
FIELDS TERMINATED BY ','
FROM BTS_SUBSCRIBER WHERE Ville='Acton-Vale POP' ORDER BY date DESC;
 
SELECT date,nbr_subs INTO OUTFILE '/var/www/maDB/csv/data2.csv'
FIELDS TERMINATED BY ','
FROM BTS_SUBSCRIBER WHERE Ville='Alma POP' ORDER BY date DESC;
 
";
 
my $sth = $dbconnect->prepare($sql);
$sth->execute();

Comment faire pour passer plusieurs select dans mon script?

J'ai trouver une façon qui fonctionne mais je ne suis vraiment pas sur que ce soit la façon de faire...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #!/usr/bin/perl -w use DBI; #DB Connect my $dbrapport = "dbi:mysql:maBD"; my $username = "uname"; my $password = "pswd"; my $dbconnect = DBI->connect($dbrapport, $username, $password) or die "Database connection not made: $DBI::errstr"; my $sql = "SELECT date,nbr_subs INTO OUTFILE '/var/www/maDB/csv/data1.csv' FIELDS TERMINATED BY ',' FROM BTS_SUBSCRIBER WHERE Ville='Acton-Vale POP' ORDER BY date DESC"; my $sth = $dbconnect->prepare($sql); $sth->execute(); my $sql1 = "SELECT date,nbr_subs INTO OUTFILE '/var/www/maDB/csv/data2.csv' FIELDS TERMINATED BY ',' FROM BTS_SUBSCRIBER WHERE Ville='Alma POP' ORDER BY date DESC"; my $sth1 = $dbconnect->prepare($sql1); $sth1->execute();
Comme il faut que je me reconnecte à la bd avant chaque execute, j'ai l'impression qu'il y aurait un moyen de me connecter une seule fois et faire le nombre de execute que j'ai besoin, mais je ne sais pas trop comment faire. Est-ce que quelqu'un aurait une idée?

10/05/2009, 13h02
djibril

Ta façon de faire est OK.
Tu t'es connecté une seule fois. C'est suffisant.

Pour Chaque requête, tu dois faire prepare, execute comme tu l'as fait.
Pour afficher maintenant des resultats, à chaque reque, tu dois aussi faire fetch_XXXX comme dans la doc DBI. Tu peux aussi lire mon article sur Perl et DBI dans la rubrique tutoriel de Perl.
11/05/2009, 01h05
Jedai

Tu peux faire un seul prepare et deux execute en utilisant les Placeholders, c'est la méthode correcte dans ton cas.

--
Jedaï
22/05/2009, 17h08
Nympheasi

Bonjour,

Ça fonctionne très bien.

Merci beaucoup.