Discussion :

[Halmir]

Bon voilà j'ai un grand problème avec mon script perl dont voici:

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
#!/usr/bin/perl
use strict;
use DBI;
use Asterisk::AGI;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
 
 
$port="3306";
my $login="root";
my $pass="passer";
 
my $dsn = "dbi:mysql:database=note;host=localhost";
my $dbh = DBI->connect($dsn,$login,$pass);
#Pour récupérer le choix effectué par l’appelant
my $code = $AGI->get_data("/var/lib/asterisk/sounds/fr/beep",100000000000,4);
 
 
#Pour exécuter une requête SQL
my $requete=" SELECT codeclasse FROM etudiant where codeserver='$code'";
$st1 = $dbh->prepare($requete);
$st1->execute();
my $codeclasse=$st1->fetchrow_array;
$st1->finish;

Le problème c'est qu'il génère une erreur. comme s'il ne se connectais pas à la base de données. Je ne sais quoi faire j'ai crée une base de données note.sql toujours rien aidez moi je vous prie
ça fait plus d'une semaine que je galère

[Beniou]

Bonjour,

Le problème c'est qu'il génère une erreur. comme s'il ne se connectais pas à la base de données.

Ce n'est pas très informatif si tu ne connais pas le message d'erreur.
Pour cela utilise dans ton script les messages d'erreurs quand tu interagis avec ta base de données ($DBI::errstr, dbh->errstr(), sth->errstr() ;
Exemple sur ton code:

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
 
#!/usr/bin/perl
use strict;
use DBI;
use Asterisk::AGI;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
 
 
$port="3306";
my $login="root";
my $pass="passer";
 
my $dsn = "dbi:mysql:database=note;host=localhost";
my $dbh = DBI->connect($dsn,$login,$pass) or die "$DBI::errstr\n" ;
#Pour récupérer le choix effectué par l’appelant
my $code = $AGI->get_data("/var/lib/asterisk/sounds/fr/beep",100000000000,4);
 
 
#Pour exécuter une requête SQL
my $requete=" SELECT codeclasse FROM etudiant where codeserver='$code'";
my $st1 = $dbh->prepare($requete) or die "$dbh->errstr()\n";
$st1->execute() or die "$st1->errstr()\n" ;
my $codeclasse=$st1->fetchrow_array or die "$st1->errstr()\n";
$st1->finish;

Tu verras mieux si quelque chose se passe mal.

[Halmir]

Merci beaucoup pour la reponse je vais le tester. C'est vraiment gentil.
J'ai une seconde question à poser existe t-il une fonction en perl comme "strlen" en php car je voulais vérifier si ce dont l'appelant saisie est bel et bien 4 chiffres

[djibril]

l'équivalent perl est length.

Code :

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

1
2
3
my $chaine = "Halmir";
my $longueur = length $chaine;
print $longueur;

Il retourne 6.

[Halmir]

Merci beaucoup Djibril, donc je crois que si je fais un truc de ce genre
//Vérifie si la taille de la chaine saisie est bel et bien quatre (comme ce qui figure dans la base de données)
if (length($code)==4)
{
.....
}
else
{
print "Erreur";
}

Es ce que cela pourrais marcher?

[djibril]

oui