#!/usr/bin/perl # chemin relatif des fichiers pour l'utilisateur $valu1 = `pwd`; # chemin complet des fichiers... ################################################ $valu1 .= '/update.log'; $valu1 =~ s/\s+//; # enlève les espaces ################################################ # écriture open (test1, ">$valu1") || &open_error1($updater1); flock(test1, 2); print test1 "Félicitations ! Test écriture et lecture d'une ligne réussi !\n"; flock(test1, 8); close test1; # lecture open (test2, "<$valu1") || &open_error1($updater1); flock(test2, 1); @LIGNE = ; flock(test2, 8); close (test2); print "Content-Type: text/html\n\n"; print <<"SOT"; Test Ok ! Page ok

Chemin complet du ficher qui est écrit : $valu1

Fichier update.log écrit sur le serveur.

Lecture de la ligne écrite dans update.log : @LIGNE SOT exit; # sub open_error1 { print "Content-Type: text/html\n\n"; print <<"EOT"; Erreur !
Erreur !

Le fichier update.log ne sait pas s'ouvrir

Vérifier les droits sur le répertoire.


EOT exit; }