Re^4: file handing

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

Comment on Re^4: file handing Download Code

Replies are listed 'Best First'.

Re^5: file handling
by Athanasius (Archbishop) on Sep 23, 2018 at 06:48 UTC

Hello bigup401,

but i get my pics with zero bytes

As johngg said below, you’re clobbering (i.e., truncating, deleting the contents of) the file by opening it for writing with >. From perlfaq5:

How come when I open a file read-write it wipes it out?

Because you're using something like this, which truncates the file then gives you read-write access:
open my $fh, '+>', '/path/name'; # WRONG (almost always)
[download]
Whoops. You should instead use this, which will fail if the file doesn't exist:
open my $fh, '+<', '/path/name'; # open for update
[download]
Using ">" always clobbers or creates. Using "<" never does either. The "+" doesn't change this.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]