in reply to file handing

see File::Copy

poj

Replies are listed 'Best First'.
Re^2: file handing
by bigup401 (Pilgrim) on Sep 22, 2018 at 16:17 UTC

    now the problem i have. it copies when no rename but when i try to put rename. the file gets renamed but cant be copied after rename

    use strict;
use warnings;
use File::Copy;

my $NFILE = "09911";
my $FILE = '02190.JPG';


my $filetobecopied = $FILE;
my $foldertocopyto = "img";
my $rename = rename($FILE, "$NFILE.JPG");
copy($rename, $foldertocopyto) or die "File cannot be copied.";

    [download]
[reply]
[d/l]

      see rename

      rename OLDNAME,NEWNAME

Changes the name of a file; an existing file NEWNAME will be clobbered. Returns true for success, false otherwise.
      poj
[reply]

        i have tried to figure it out. this is wat i mean that open function can be used instead file copy

         
$IMG = $CGI->param("photo");
my $newfile = '09911.JPG';
my $copydir = 'img';
my $uploadfile = $CGI->upload($IMG);
rename($uploadfile, $newfile);
open ( UPLOADFILE, "+>$copydir/$newfile" );
close UPLOADFILE;

        [download]

        now the code works as i like it. but i get my pics with zero bytes

[reply]
[d/l]
Re^2: file handing
by bigup401 (Pilgrim) on Sep 22, 2018 at 13:42 UTC

    i wanted to use open() function

[reply]
[reply]

In Section Seekers of Perl Wisdom