You can probebly make it work with open, I am nto sure how to. This will
work...
#!/usr/local/bin/perl -w
use Fcntl; # for perm constants
use Errno; # for errno constants
unless ( sysopen ($FH,"test.txt",O_WRONLY|O_CREAT|O_EXCL, 0744) ){
if( $!{EEXIST} ){
print "file exists \n ";
# rename it here
}
}
----- Original Message -----
From: "chris" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 23, 2002 9:32 PM
Subject: How to rename file with a serial extension for backup?
> Before I re-invent the wheel...
>
> I open a file for output but do not want to overwrite if it exists. It
> should be renamed with a serial number as an extension
>
> for example
> filename test.txt
>
> rename to
> test.001
> test.002
> test.003
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
