script perl et page web

**PadawanInPerl** · 09/03/2010, 17h44

Bonjour,

j'ai un script perl que j'utilisais pour modifier des valeurs dans un fichier texte en fonction des valeurs trouvées.

Est-il possible d'adapter mon script pour l'utiliser dans une page web ?
récupérer les infos d'un champ et y écraser la nouvelle valeur ?

Un peu à la façon Javascript mais Sans...

**Mr6** · 10/03/2010, 05h45

Tu dois te faire un formulaire et récupérer son contenu

Le module CGI est ton ami.

@+
Mr6

**PadawanInPerl** · 10/03/2010, 13h41

Envoyé par Mr6

Tu dois te faire un formulaire et récupérer son contenu

Le module CGI est ton ami.

@+
Mr6

Merci, je vais allé voir de ce côté...mais je crois bien ne pas avoir fini de poser des questions....

**PadawanInPerl** · 30/03/2010, 16h18

Bonjour.

lorsque j'envoie mon formulaire, c'est mon code perl qui s'affiche dans mon navigateur !

Des suggestions ?? Merci

**djibril** · 30/03/2010, 16h53

Va falloir nous montrer un peu plus ce que tu fais

**PadawanInPerl** · 30/03/2010, 16h58

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>TOTO</title>
</head>
<body bgcolor="#E0E0E0" text="#000000">
<h1>Saisie du contenu TOTO</h1>
<form action="cgi-bin/comments.pl" method="post">
<p>Sujet:<br><input size="40" maxlength="40" name="Sujets"></p>
<p>Question:<br><textarea rows="2" cols="50" name="Questions"></textarea></p>
<p>R&eacute;ponse:<br><textarea rows="6" cols="50" name="Reponses"></textarea></p>
<p><input type="submit" value="envoyer"></p>
</form>
</body>
</html>

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
#!/usr/bin/perl -w
 
use strict;
use DBI;
 
# Parametres de connexion à la base de données
my $BaseDeDonnees = "TOTO";
my $NomHote       = "localhost"; # Il est possible de mettre une adresse IP 
my $login         = "root";      # login
my $MotDePass     = "";          # Nous n'avons pas de mot de pass
 
# Connection à la base de données mysql
my $dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;",
    $login, $MotDePass )
    or die "Connection impossible à la base de donnees $BaseDeDonnees !";
 
 
  #insertion d'une donnée
 
      my $RequeteSQL = <<"SQL";
  INSERT INTO commande ( Sujets, Questions, Reponses )
  VALUES ( "$Sujets", "$Qestions", "$Reponses" );
SQL
 
    $dbh->do($RequeteSQL) or die "Echec Requete $RequeteSQL : $DBI::errstr";
}
 
 
  while (my  ($Sujets, $Questions) = $version -> fetchrow_array)
    {
     print "result: $Sujets -> $Questions\n"; 
    }
 
  #spécifie la fin de la requête
  $version-> finish();
 
  #déconnection à la base de données
  $dbp->disconnect();

commande étant une table de ma bdd TOTO...mais je crois que je vous apprends pas grand chose...

script perl et page web

Web Perl

Vue hybride

Discussions similaires

Partager

Partager