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