in reply to Re: CGI and Storable : explain me this, please.
in thread CGI and Storable : explain me this, please.
Hi Monks
Yes I'm uploading 3 pics.
this works
$db{"1"}{"pic1"} = "$var";Thanks
The code is
for ($i=1; $i < 4; $i++) { $tmp = "pic" . $i; my $filename = $query->param($tmp); $db{$n}{$tmp} = "$filename"; $upload_filehandle = $query->upload($tmp); open UPLOADFILE, ">$upload_dir/$filename"; binmode UPLOADFILE; while ( <$upload_filehandle> ){ print UPLOADFILE; } close UPLOADFILE; } store \%db, $dbfile ;
Thanks
Have a nice day
"There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates
|
---|
In Section
Seekers of Perl Wisdom