Chris Zampese wrote:
> 
> > From: "Chris Zampese" <[EMAIL PROTECTED]>
> >
> > Just wondering if anyone has any bright ideas on how to rename a file in
> > Win98.  I have tried the following...
> >
> > my $old="C:/sentslips/sentslipstemp.txt";
> > my $new="C:/sentslips/sentslips1.txt";
> >
> > rename($old, $new);

rename($old, $new) or warn "Cannot rename '$old' to '$new' $!";


> > But no luck, the sctipt runs without errors (I am running with the -w
> switch
> > and use strict)
> 
>  I have also tried using File::Copy but it doesnt copy the last line of the
> file.
>  My file is created by printing single lines into a text file as follows....
>      open($MYFILE1, "+>> C:/sentslips/sentslipstemp.txt")
>               || die "can't open C:/sentslips/sentslipstemp.txt";
> 
>      print {$MYFILE1} "$filename?$date\n";
>        close (MYFILE1);
> 
>  This is inside a loop, so I end up with a file with  (at the moment) 2-4
>  lines like so...
>  Placing_Slip___This is the first?09-02-2002
>  Placing_Slip___This is the second?09-02-2002
> 
>  but when I copy or move the file like this...
> 
>  copy("C:/sentslips/sentslipstemp.txt","C:/sentslips/sentslips1.txt");
> 
> the new file would have one less line,
> 
>    any help would be hugely appreciated.   Thanks again


use File::Copy;

open OLD, "< $old" or die "Cannot open '$old' $!";
binmode OLD;
open NEW, "> $new" or die "Cannot open '$new' $!";
binmode NEW;
copy( \*OLD, \*NEW ) or die "Cannot copy '$old' to '$new' $!";



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to