如何通過FTP在CGI腳本中上傳文件？

請參閱下面的上傳腳本。它可以工作，但我想要做的是使用我的FTP站點來訪問Upload_dir，而不是我的服務提供商託管的我的網站的本地目錄。如何通過FTP在CGI腳本中上傳文件？

請建議我應該做的不同，使這項工作！預先感謝您

#!/usr/bin/perl 
use CGI::Carp qw(fatalsToBrowser); 
use CGI; 
use File::Basename; 
$CGI::POST_MAX = 1024 * 5000; 
my $safe_filename_characters = "a-zA-Z0-9_.-"; 
my $upload_dir = "MyWebsite/upload"; 
my $query = new CGI; 
my $filename = $query->param("photo"); 
my $email_address = $query->param("email_address"); 
if (!$filename) { print $query->header (); 
print "There was a problem uploading your photo (try a smaller file)."; 
exit; } my ($name, $path, $extension) = fileparse ($filename, '\..*'); 
$filename = $name . $extension; 
$filename =~ tr/ /_/; 
$filename =~ s/[^$safe_filename_characters]//g; 
if ($filename =~ /^([$safe_filename_characters]+)$/) { $filename = $1; 
} else { die "Filename contains invalid characters"; 
} my $upload_filehandle = $query->upload("photo"); 
open (UPLOADFILE, ">$upload_dir/$filename") or die "$!"; 
binmode UPLOADFILE; 
print $query->header(); 
while (<$upload_filehandle>) 
{ 
    print UPLOADFILE; 
} 
close UPLOADFILE; 
print $query->header (); print qq~ 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 
<head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
<title> 
Thanks! 
</title> 
<style type="text/css"> img {border: none;} 
</style> 
</head> 
<body> 
<p>Thanks for uploading your photo!</p> 
<p>Your email address: $email_address</p> 
<p>Your photo:</p> 
<p><img src="/upload/$filename" alt="Photo" /></p> 
</body> 
</html> 
~;

來源

2011-07-14 user791276

我想最簡單的方法是上傳到本地文件，就像你在做什麼。一旦文件上傳後，您應該添加sime Net :: FTP代碼將文件從網絡服務器發送到您的FTP服務器。您的服務提供商需要允許傳出的FTP才能正常工作。

use Net::FTP; 
... 
close UPLOADFILE; 
my $ftp = Net::FTP->new($your_ftp)   || die "[email protected]"; 
$ftp->login($ftp_user,$ftp_pswd)    || die $ftp->message; 
$ftp->cwd($ftp_dir)       || die $ftp->message; 
$ftp->binary(); 
$ftp->pasv(); # optional. May be required 
$ftp->put("$upload_dir/$filename",$filename) || die $ftp->message; 
undef $ftp; 
...

通過我通常使用自動生成的本地文件名，以確保兩個用戶在同一時間使用相同的名稱不會引起問題上傳的方式。我通常使用類似time().'-'.$$

來源

2011-07-14 16:17:00 Sodved

非常感謝謝謝你。你是一個拯救生命的人 – user791276

如何通過FTP在CGI腳本中上傳文件？

回答

相關問題