in reply to cgi File Upload, No data pased through?
CGI Help Guide
Web Programming with Perl
Web Programming with Perl
Don't mix the OO and function oriented interface of CGI for no good reason.
This is an example I use often to test cgi upload scripts.
If this does not work or reveal why not (old/broken version of CGI.pm, disabled uploads ...), then you need to check your web server configuration (disabled/limited at server level).#!/usr/bin/perl -w #!C:/perl/bin/perl -w use CGI::Carp qw( fatalsToBrowser ); use CGI; #use CGI 2.7; # the minimum acceptable version is 2.7 in my book use strict; my $query = new CGI; print $query->header, $query->h1("VERSIOn $CGI::VERSION"), $query->h1("POST MAX $CGI::POST_MAX "), $query->h1(" DISABLE_UPLOADS $CGI::DISABLE_UPLOADS "), $query->start_multipart_form(); print $query->filefield(-name=>'uploaded_file', -default=>'starting value', -size=>50, -maxlength=>80); print $query->submit(),$query->end_form(); print $query->hr(); if($query->upload('uploaded_file')) { my $fh = $query->upload('uploaded_file'); print "<PRE>Filename: $fh \n"; print "Size: ".(-s $fh)."\n\n"; print while <$fh>; # idiomatic print "</pre>"; }
____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.
|
---|
In Section
Seekers of Perl Wisdom