Discussion :

[grego..]

Bonjour,
j'intègre des requettes SQL dans mon prog,
cette fois je dois savoir si telle valeur existe dans ma table pour continuer le programme perl
du genre si (le select existe )
faire (la fonction perl)

SELECT id FROM table WHERE nom='toto'

ou si vous savez comment tester une valeur du genre :
$test = (commande SQL)
if ($test == 1) {programme perl}

vous voyez l'idée ? merci à vous

[djibril]

Essaye d'utiliser le module DBI.

[grego..]

oui on se rapproche

je n'arrive pas à extraire dans un tableau toutes les valeurs d'un Select

Code :

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

1
2
3
4
5
6
7
 
my $requete="Select recipient From messagetoday Where ID='Parse[2]'";  
 			my  $version = $dataBase->prepare($requete);
 			$version-> execute() or die "Couldn't execute : $DBI::errstr";
			my  $Recip = $version -> fetchrow_array;       
 			$version-> finish();
 			#print "---$Recip[0] - $Recip[1]";

avec ça je n'ai que la première ligne, et je perd toutes les autres valeurs

merci

[djibril]

Il faut que tu utilises fetchrow_array dans une boucle.

Code :

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

1
2
3
while ( my  $Recip = $version->fetchrow_array) {
  print "---$Recip[0] - $Recip[1]\n";
}

Voici un article que j'ai écrit sur perl et les bases de données. Il te sera utile.

[psylox]

ou bien fetchall_array

Code :

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

1
2
 
my $Recip = $version->fetchall_array($requete)