如何用perl cgi upload一個文件到server? - Perl, CGI - 程式設計 - 由美論壇 | 交友 | 遊戲 | 免費空間 | 最旺的社群論壇
發新話題

如何用perl cgi upload一個文件到server?

如何用perl cgi upload一個文件到server?

我從一個網站看到以下的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文件?

TOP

發新話題

本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。