http://qs321.pair.com?node_id=15547

Robert has asked for the wisdom of the Perl Monks concerning the following question:

Folks, I'm trying to execute this simple script to change a file in a remote server as part of a much bigger script:
$file = 'Win.ini';\n $tmp = "$file.tmp";\n chdir ("\\\\servername\\winnt") || die "$!\n";\n open (FL, "$file") || die "$!\n";\n open (TMP, ">$tmp") || die "$!\n";\n while (<FL>){\n $_ =~ s/als/ald/g;\n print TMP $_;\n }\n close FL || die "$!\n"; \n close TMP || die "$!\n";\n rename ($file,$file.old) || die "$!\n";\n rename ($file.tmp,$file) || die "$!\n";\n
I'm running this with admin. privileges on a few servers. Every time I run the script, it says it cannot create the TMP file handle.(File or directory does not exist). Could someone give me a hand? Thanks, Robert