Discussion :

[Nympheasi]

Bonjour,

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

Voici mon code fonctionnel pour un SELECT:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Nympheasi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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.

[Jedai]

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

--
Jedaï

[Nympheasi]

Bonjour,

Ça fonctionne très bien.

Merci beaucoup.