hi,
I want to do this :
i have some servers where i want to check if some files exists and the user
must put the all path with the name of the file ...
use strict;
#that's the file where my servers are ...
open (LISTESERVEUR, "c:\\perl\\presence\\listeserveur.txt") || die "Ne peut
ouvrir le fichier Listeserveur.txt ! V�rifier qu'il existe sous
c:\perl\presence:$!";
@serveurstab=<LISTESERVEUR>;
Close(LISTESERVEUR);
open (RESULT,">>c:\\perl\presence\\resultat.txt");
print "Fichier recherch� (sous la forme Nom_fichier.extension : \n\n";
$fichier=chop(<STDIN>);
print "Chemin complet :\n\n";
$path=chop(<STDIN>);
foreach $ligne (@serveurstab)
{
chop($ligne);
but how to change the path ... because the user will put
c:\folderone\filetwo.txt but i have to write
\\\\server\\c\$\\folderone\\filetwo.txt
If someone can help me ...
