poj#!perl use strict; use CGI qw( :standard); use CGI::Carp qw(fatalsToBrowser); my $q = CGI->new; print $q->header(),$q->start_html(); for my $p ($q->param){ print "$p = ".$q->param($p)."<br/>" } print "<pre>"; my $upload_filehandle = $q->upload("photo"); while ( <$upload_filehandle> ) { print $_; } print "</pre>"; print $q->end_html;
In reply to Re^11: File Upload On Windows 8 and Perl
by poj
in thread File Upload On Windows 8 and Perl
by skosterow
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |