Discussion :

[ChiPi']

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 :

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

[ChiPi']

résolu

chomp($nomC); et hop c 'est dans la boite