Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl CGI et livre d'or

CGI et livre d'or

1 réponse
Avatar
Louis Nyffenegger
Bonjour/soir, j'ai un problème avec le code suivant :




#! /usr/bin/perl -w

use strict;
use CGI;

my $req = new CGI;
my $nom ;

print STDOUT "Content-Type: text/html\n\n";
print STDOUT "<html>\n <body>\n";



################# le formulaire HTML #################

print STDOUT " <form method=\"POST\">\n";
print STDOUT " Votre Pseudo : <input type=\"text\" name=\"pseudo\" size=\"15\" value=\"Votre pseudo\"/><br/>\n";
print STDOUT " Votre M\@il : <input type=\"text\" name=\"email\" size=\"30\" value=\"Votre em\@il\"/><br/>\n";
print STDOUT " Votre message :<br/> <textarea name=\"texte\" rows=\"5\" cols=\"75\">Votre message </textarea> <br/>\n";
print STDOUT " <input type=\"reset\" value=\"Reset\"/>";
print STDOUT " <input type=\"submit\" name=\"action\" value=\"Envoyer\"/>";
print STDOUT " </form>\n";
open(FICHIER,">>livreor.txt") || die "impossible d'ouvrir le fichier";

################# gestion des ajouts dans le fichier texte #############
foreach $nom ($req->param ){ print STDOUT "$nom"; print FICHIER "$nom"; }
close(FICHIER);

################# gestion de l'affichage du fichier texte ###############

my $ligne;
open(FICHIER,"livreor.txt") || die "impossible d'ouvrir le fichier";
while ($ligne = <FICHIER>){
print STDOUT "$ligne";
}
close(FICHIER);

################ fin du fichier HTML
print STDOUT " </body>\n</html>\n";




En fait, le script ne produit pas d'erreur : il ne produit rien : n'écrit
rien dans le fichier !!!!

merci d'avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sebastien Castiel
Bonjour/soir, j'ai un problème avec le code suivant :




#! /usr/bin/perl -w

use strict;
use CGI;

my $req = new CGI;
my $nom ;

print STDOUT "Content-Type: text/htmlnn";
print STDOUT "<html>n <body>n";



################# le formulaire HTML #################

print STDOUT " <form method="POST">n";
print STDOUT " Votre Pseudo : <input type="text" name="pseudo" size="15" value="Votre pseudo"/><br/>n";
print STDOUT " Votre : <input type="text" name="email" size="30" value="Votre "/><br/>n";
print STDOUT " Votre message :<br/> <textarea name="texte" rows="5" cols="75">Votre message </textarea> <br/>n";
print STDOUT " <input type="reset" value="Reset"/>";
print STDOUT " <input type="submit" name="action" value="Envoyer"/>";
print STDOUT " </form>n";
open(FICHIER,">>livreor.txt") || die "impossible d'ouvrir le fichier";

################# gestion des ajouts dans le fichier texte #############
foreach $nom ($req->param ){ print STDOUT "$nom"; print FICHIER "$nom"; }
close(FICHIER);

################# gestion de l'affichage du fichier texte ###############

my $ligne;
open(FICHIER,"livreor.txt") || die "impossible d'ouvrir le fichier";
while ($ligne = <FICHIER>){
print STDOUT "$ligne";
}
close(FICHIER);

################ fin du fichier HTML
print STDOUT " </body>n</html>n";




En fait, le script ne produit pas d'erreur : il ne produit rien : n'écrit
rien dans le fichier !!!!

merci d'avance




<form method="POST" action="tonscript.cgi">
^^^^^^^^^^^^^^^^^^^^^^