관리-도구

편집 파일: post.cgi

#!/usr/bin/perl use CGI; use strict; my $share_url = "http://mysite.com/uploads/"; my $cgi = CGI->new(); my @file_fields = ('file_name','file_name_orig','file_size','file_status','file_descr','file_mime'); my $h; @{$h->{$_}}=$cgi->param($_.'[]') for @file_fields; #Files info print"Content-type: text/html\n\n"; for(0..$#{$h->{file_name}}) { print "<b>Filename:</b> $h->{file_name}->[$_]"; print "<br><b>Orignal Filename:</b> $h->{file_name_orig}->[$_]"; print "<br><b>File Size:</b> $h->{file_size}->[$_]"; print "<br><b>File Status:</b> $h->{file_status}->[$_]"; print "<br><b>File Description:</b> $h->{file_descr}->[$_]"; print "<br><b>File MIME:</b> $h->{file_mime}->[$_]"; print "<hr>"; } #Special & Form variables print "<br><b>Other variables:</b><br>"; for my $x ($cgi->param()) { next if grep{$x eq $_.'[]'}@file_fields; print"$x => ".$cgi->param($x)."<br>"; }