I'm trying to do a simple file rename and am starting to pull my hair out.
# Open the infile for read, no append, no create, no clobber
open RIGHTSLISTFILE, "<$rightslistfilename"
|| die ("admin_user_ex : Error: Can not open file:
$rightslistfilename \n");
# Open the outfile for write, no append, create nonexisting
open TMPFILE, ">$tmpfilename"
|| die ("admin_user_ex : Error: Can not open file: $tmpfilename \n");
...
read from rightslistfile and write to tmpfile.
...
close (RIGHTSLISTFILE);
close (TMPFILE);
...
$retval = rename $tmpfilename, $rightslistfilename;
print "retval: $retval<br>";
retval is 0 and the target file never gets updated.
Thanks in advance.
--
Ed
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
