Ed wrote:
> 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);
> ...
Before renaming, must either rename the original file or delete because
rename will not rename to existing filename.
> $retval = rename $tmpfilename, $rightslistfilename;
> print "retval: $retval<br>";
>
> retval is 0 and the target file never gets updated.
0 indicates failure in this setup and non zero is success.
so I would do something like:
if ( ! rename $tmpfilename, $rightslistfilename ) {
print "Error in rename of file: " , $@ , "\n";
print "tmpfilename: " , tmpfilename, .......
}
Wags ;)
>
> Thanks in advance.
>
> --
> Ed
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
