ファイル名を出力したテキストファイルを読込みリモートファイルをGetする方法

質問

リモートからダウンロードが必要なファイル名をテキストファイルに出力し、そのテキストファイルを順次読込み、読込まれたファイル名をローカルにダウンロード(get)したい。

テキストファイルまでは作成できているのですが、テキストファイルを読込み、そこからファイルをゲットすることができません。

どのように記述すればよいのでしょうか？
よろしくお願いします。

回答No.5

BLUEPIXY · ベストアンサー

#4>whileが実行できません。
カレントディレクトリが違うのかも知れません
open(FILELIST,"filelist.txt");
while(<FILELIST>){
print "$_\n";
}
close(FILELIST);
見たいなファイルを読んで表示だけするスクリプトを作成して、ファイルが読めるかどうか点検してみて下さい。

お礼

ご回答ありがとうございます。おっしゃるようにファイル名を間違えていたようです。

回答No.4

BLUEPIXY

#3でファイルのクローズをするのを忘れていました。
open(FILELIST,"filelist.txt");
while(<FILELIST>){
$ftp->get($_);
}
close(FILELIST);

お礼

ご回答ありがとうございます。早速実行したのですが、どうしてもwhileが実行できません。

ファイルのオープンまではできているのですが・・・。

オープンの後、すぐクローズしているという状態です。

回答No.3

BLUEPIXY

前の質問から
ＦＴＰが使えるのだと推測しますが
そうなら
use Net::FTP;
$ftp = Net::FTP->new($host) or die "Can't connect:$@\n";
$ftp->login($user, $password) or die "Couldn't login\n";
open(FILELIST,"filelist.txt");
while(<FILELIST>){
$ftp->get($_);
}
$ftp->quit() or warn "Couldn't quit.\n";
見たいな感じでGetできます。

回答No.2

happycandy1234

おっと、Perlのカテゴリーですね。
まちがえて回答してしまいました。
Perlはよくわかりません(^_^;

回答No.1

happycandy1234

RegetとかIrvineなどのダウンロードツールには、
テキストファイルを読み込んで一括ダウンロードする機能がありますね。
それぞれ書式が違うだろうと思うので、そこから先はなんともいえませんが。。。