如何用perl cgi upload一个文件到server？-问题解决

nggs8411

我从一个网站看到以下的source code：
#!/usr/bin/perl -w

use CGI;

$upload_dir = "/home/mywebsite/htdocs/upload";

$query = new CGI;

$filename = $query->param("photo");
$email_address = $query->param("email_address");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("photo");

open UPLOADFILE, ">$upload_dir/$filename";

binmode UPLOADFILE;

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

close UPLOADFILE;

但是为什么我还是无发成功upload文件？

[ 本帖最后由 nggs8411 于 7-3-2007 05:45 AM 编辑 ]