Hi,
It looks like some stuff is mixed up.
Who is what ??
$foto ??
$path/$number/$foto ??
Let's make this difference :
if($picture) { ## If possible of course
open(F, ">$path/$number/$foto") || die "Cannot open $!";
Now what do you want to store into this file.
You opened the file in overwritemode so you can never read input from it.
The notation would be incorrect by then, but that doesn't matter now.
I've never heard of a while($file) unless you substitute $file that makes it changing
But I don't think this is what you want.
while(<AnotherFH>) { ## Maybe ??
print F $_;
}
Can you please explain where you get your input from and what it contains.
Where you want to store it.
Regs David
>
> Hello!
>
> The following part of code uploads 0k.
>
> #!/usr/bin/perl
>
> ...
>
> if($foto) {
> open (F, ">$path/$number/$foto") || die "Cannot open $!";
> while(<$foto>) {
> print F $_;
> }
> close F;
> }
>
> Where could be the problem?
>
> Please help,
> Collette.
>
>
>
>
> --
> 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]
