#!G:/Prg_internet/Perl/bin/perl.exe # insertion d'infos dans un fichier texte # ne gère pas les accès concurrents ! $db = "database.dat"; require "cgi-lib.pl"; &ReadParse(*in); if (&Insertion != 1) { &ConfirmationOK; } else { &PasOK; } exit 0; sub Insertion { open (DATABASE, ">>$db") || return 1; print DATABASE "$in{'nom'}|$in{'prenom'}|$in{'rue'}|$in{'no'}|$in{'cp'}|$in{'localite'}|$in{'pays'}|\n"; close(DATABASE); return 0; } sub ConfirmationOK { print &PrintHeader; print < Cours 3 : Insertion des données du formulaire Les données ont été insérées correctement

Nom : $in{'nom'}
Prénom : $in{'prenom'}
Rue : $in{'rue'}
Numéro : $in{'no'}
Code postal : $in{'cp'}
Localité : $in{'localite'}
Pays : $in{'pays'}



Retour au formulaire FIN } sub PasOK { print &PrintHeader; print < Erreur d'insertion

Les données n'ont pas été insérées correctement

Réessayez

FIN }