使用Perl CGI上传文件

时间:2012-03-18 23:42:17

标签: html perl cgi

我能够创建我的目录,但我似乎无法将该文件放在目录中。

   #!/usr/bin/perl

use Cwd;
use CGI;

my $dir = getcwd();
print "Current Working Directory: $ dir\n";

my $photoDir = "$dir/MyPhotos";

mkdir $photoDir
        or die "Cannot mkdir $photoDir: $!"
        unless -d $photoDir;


my $query = new CGI;
my $filename = $query->param("Photo");
my $description = $query->param("description");

print "Current filename: $filename\n";

my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' ); $filename = $name . $extension;
print $filename;
my $upload_filehandle = $query->upload("Photo");



open ( UPLOADFILE, ">$photoDir/$filename" )
 or die "$!"; 
binmode UPLOADFILE; 

while ( <$upload_filehandle> ) 
{ print UPLOADFILE; } 
close UPLOADFILE;

CGI堆栈跟踪显示没有错误,但日志显示没有输出

LOG: 5 5020-0:0:0:0:0:0:0:1%0-9: CGI output 0 bytes.

0 个答案:

没有答案