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

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

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

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

No.5 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/01/05 19:37

#4>whileが実行できません。

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

この回答へのお礼

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

お礼日時：2005/01/05 19:41

No.4 回答者： BLUEPIXY 回答日時： 2005/01/05 14:31

#3でファイルのクローズをするのを忘れていました。

open(FILELIST,"filelist.txt");
while(<FILELIST>){
$ftp->get($_);
}
close(FILELIST);

この回答へのお礼

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

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

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

お礼日時：2005/01/05 15:25

No.3 回答者： BLUEPIXY 回答日時： 2005/01/05 14:29

前の質問から

ＦＴＰが使えるのだと推測しますが
そうなら
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 回答日時： 2005/01/05 13:56

おっと、Perlのカテゴリーですね。

まちがえて回答してしまいました。
Perlはよくわかりません(^_^;

No.1 回答者： happycandy1234 回答日時： 2005/01/05 13:52

RegetとかIrvineなどのダウンロードツールには、

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