CGIでFTPファイル送信・受信がしたい
CGIでファイル送信・受信を行いたいと考えてます。
言語は PERL で Net::FTP を利用しようと思ってます。
ローカルで実行するとファイル送信・受信できるのですが。。。。。
サーバにスクリプトを置いてブラウザから実行すると500のエラーが出ます。
自分的には手詰まりの状態です。
大きなファイルが送受信できるようなものを探しています。
なにか参考にできるサイトはございませんでしょうか？
よろしくお願いいたします。
#!/usr/bin/perl
use strict;
use Net::FTP;
use CGI;
my $host = "my.host.com";
my $user = "user";
my $pass = "pass";
my $remote_file = "/home/test1/remote.txt";
my $local_file = "/tmp/local.txt";
my $q = CGI->new();
my $ftp = Net::FTP->new($host) or die "can not connection: $@";
$ftp->login($user, $pass) or die $ftp->message;
$ftp->binary;
$ftp->get($remote_file, $local_file) or warn $ftp->message;
$ftp->quit;
print $q->header( -type=>'text/html', -charset=>'UTF-8', );
print <<"END_OF_HTML";
<body><p>done.</p></body>
END_OF_HTML
exit;
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
ありがとうございます。 試してみて思い通りに動きましたヽ(・∀・)ノ ワチョーイ♪ 助かりました。 <(_ _)>