Discussion :

[stephan-gre]

bonjour
je recherche un programmeur perl pour faire cela

j'ai une base mysql avec une table produit et un des champs
se nomme theme_recherche

les enregistrements de ce dernier sont sous la forme
|id | champ1 | champ2 | theme_recherche | champ3 |...
--------------------------------------------------------
|1 | ... | ... | nucleaire,biologie | ... |...
|2 | ... | ... | toto,tata,titi | ... |...

je voudrais récuperer toutes les valeurs qui se trouve dans
theme_recherche de chaque enregistrement pour les mettre
dans un menu deroulant du style
<select name=theme>
<option value="nucleaire">nucleaire</option>
<option value="biologie">biologie</option>
<option value="toto">toto</option>
<option value="tata">tata</option>
<option value="tata">tata</option>


et ce menu deroulant je l'inclu dans une page existante
html via
<!--#exec cgi="programme.pl" -->

me contacter pour les modalitées

cordialement
stephan

[mobscene]

Pas la peine de payer pour cela c'est super fastoche a coder voila une ébauche

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/usr/bin/perl -w
use strict;
use diagnostics;
use DBI;
 
# Déclaration des variables
my $dbh;
 
my $begin = "<select name='theme'>";
 
 
# Connexion a la base de données
 
eval
{
  # Tant que la connexion n'est pas établie on essaie
  while (!$dbh)
  {
     $dbh = DBI->connect(...HANDLER);
  }
};
if ($@)
{
  warn $@;
  print "<b>Erreur</b>\n";
  exit(0);
}
 
 
 
# Récupération des données dans la base
my $request = $dbh->prepare("select theme_recherche from NOMTABLE");
   $request->execute;
 
while (my @menu = $request->fetchrow_array())
{
  # Les donnée sont dans $menu[0]
  # Comme les champs comporte des "," ont split
  my @data = split /,/, $menu[0];
 
  # parcour des données
  foreach my $option (@data)
  {
     $begin .= "<option value='".$option."'>".$option."</option>";
  }
}
 
# Fermeture du menu
$begin .= "</select>";
 
 
# Affichage
print $begin;

[Leishmaniose]

..... J'hallucine ......

[mobscene]

..... J'hallucine ......

lool

[donny]

j'ai pas trop saisi le rôle du eval

[mobscene]

j'ai pas trop saisi le rôle du eval

Eval sert a intercepter les erreurs non fatal comme try catch en C# ou C++ par exemple

[lilly0o]

bonjour
voila je suis etudiante en 3 ème année informatique géneral et pour mon projet de fin de licence je dois programmer un superviseur de serveur mail en perl or malheureusment je n'ai trouvé personne qui programme en perl et je ne l'ai jamais etudié c'est pour cela je vous demande si vous le maitrisez si en cas de probleme vous pouriez m'aider si cela ne vous derange pas merci.