CGIスクリプトでFTP経由でファイルをアップロードするには？

下記のアップロードスクリプトをご覧ください。それは動作しますが、私がしたいことは、サービスプロバイダがホストしている私のウェブサイトのローカルディレクトリではなく、Upload_dirの私のFTPサイトを使用しています。CGIスクリプトでFTP経由でファイルをアップロードするには？

私はこの作業をするために何をすべきかをお勧めします。事前にありがとう

#!/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コードを追加して、WebサーバーからFTPサーバーにファイルを送信する必要があります。あなたのサービスプロバイダは、これを動作させるために発信FTPを許可する必要があります。私は通常、autoを使用ところで

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; 
...

は、同じ名前で同時にアップロードする2人のユーザーが問題を起こさないようにローカルファイル名を生成しました。私は通常のようなものを使用しますtime().'-'.$$

出典

2011-07-14 16:17:00 Sodved

大変ありがとうございます。あなたは命の恩人です – user791276

CGIスクリプトでFTP経由でファイルをアップロードするには？

答えて

関連する問題