Pbm:Valeur tapée dans le shell,stockée et vérifiée si dans la base
Bonjour
j'ai un petit problème insolvable pour moa , peut-être pourrez vous m'aider?
J'ai un script perl qui lancé dans le shell , me pose des questions.
J'y réponds et les valeurs sont stockés dans des variables.
Celle qui nous intéresse ici est $nomC.
Je formule une requête vers la base pour compter le nombre de lignes ou l'on retrouve ma valeur.
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
28
29
30
31
| #!/usr/bin/perl
use DBI;
my $data_source = "DBI:mysql:essai";
my $user = "root";
my $password ="camille";
my $dbh=DBI->connect($data_source,$user,$password);
#Récupération de donnés via le shell
print "Bonjour , Saisissez les informations relatives à votre comparaison\n" ;
print "Veuillez nommer votre comparaison: " ;
my $nomC= <STDIN>;
print "auteur: ";
my $auteur= <STDIN>;
print "date(0000-00-00): ";
my $date = <STDIN>;
print "Chemin d'accés à l'image generee par mauve: ";
my $path=<STDIN>;
#prepare la requete et l"execute
my $sth = $dbh->prepare('SELECT count(DISTINCT selection) FROM essai where selection=?');
$sth-> execute($nomC) || die "pb de selection : $DBI::errstr";
#stock le résultat et affiche 0 si ya pas d'homologies ...1,2,3ou + suivant le nombre de fois qu'il retrouve la valeur
my $data = $sth->fetchrow_array();
print $data; |
A la question "Veuillez nommer votre comparaison:"
Je reponds idiot
J'ai bien une table essai dans lequel j'ai un champ selection ou il ya effectivement la valeur "idiot"
Pourtant quand je print $data j'ai toujours 0 comme réponse alors que je devrai avoir 1.
VOila Merci un coup de pouce serait le bien venu....
