Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Thanks$previouspage =$ENV{'HTTP_REFERER'}; ### i know this is not the best solution if ($previouspage =~ m/int/) { ##define scalars. $query = new CGI; $filename = $query->param("profile_data"); #read infilename of data open(OUTPUT, ">$filename"); binmode $filename; binmode OUTPUT; ($bytesread,$buffer,$total); while ($bytesread = read($filename,$buffer,1024) ) { $total += $bytesread; if ($bytesread > 10000000) { close(OUTPUT); unlink "$filename"; } print OUTPUT $buffer; } + close(OUTPUT); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: File upload probelem
by jasonk (Parson) on Apr 05, 2006 at 12:38 UTC | |
by Anonymous Monk on Apr 05, 2006 at 13:22 UTC | |
|
Re: File upload probelem
by Anonymous Monk on Apr 05, 2006 at 12:28 UTC |