Reading and image and then saving it to a new location 1

[SCelia]

Heres the problem:

open (IMAGE, "image.jpg&quot or die "Cannot open file image.jpg: $!";

binmode IMAGE;
read( IMAGE, $doc, 10000 );
close IMAGE;

it seems to read in okay. Now I try to create that image in a new directory:

open(IMAGE, ">D:\Earth\unique\newimage.jpg&quot || die"newimage.jpg: $!";

binmode IMAGE;
print IMAGE $doc;
close IMAGE;

The code doesn't die, but it doesn't create any images either. Any ideas?
Celia

 

[sleipnir214]

Try

open(IMAGE, ">D:\\Earth\\unique\\newimage.jpg&quot || die"newimage.jpg: $!";

instead.
Perfection in engineering does not happen when there is nothing more to add. Rather it happens when there is nothing more to take away.

 

[NEVERSLEEP]

sub copy_tmpfile {
my ($source,$destination) = @_;
open (FILE2,">$destination"
binmode(FILE2);
while (!eof($source)) {
$ligne=<$source>;
print FILE2 ($ligne);
}
close (FILE2);
}
# could this do ?

---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[SCelia]

Thanks, that did it. New problem now tho, refer to my latest post. Celia

 

[SCelia]

Never mind, my bad logic. Used an unless where an if was called for I must be tired. Celia