テキストファイルからリモートのファイル名を読込み、ローカルにダウンロードしたいのですが。

質問

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

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

テキストファイルを読み込んだとき、ファイル名の後の空白が長すぎてゲットができずエラーが出ているのではと思うのですが・・・。

whileなどを使用して、ループさせて読み込みながら、かつ、読み込んだレコードの先頭の28文字分をファイル名として指定するのはどのようにすればよいでしょうか？

よろしくおねがいします。

回答No.3

marimo_cx · ベストアンサー

あ！
うっかりしてました。(;^_^A アセアセ

$FTPremotefile =~ /^(.{28})/;

s要らないです。

m(__)mペコ

お礼

訂正ありがとうございます。

回答No.2

marimo_cx

$FTPremotefile　の中身は正しいのですか？

って言うか正しく無いなら正しい内容にすれば良いかと。
必ず先頭28文字がファイル名であるなら

$FTPremotefile =~ s/^(.{28})/;

で、$1に先頭28文字が得られます。

お礼

ご回答ありがとうございます。早速やってみます。

補足

このとおりやってみたのですが、残念ながら下記のようなエラーが出て実行できませんでした。

Might be runaway multi-line // string starting on line 92

line 92は　$FTPremotefile =~ s/^(.{28})/;
でした。

回答No.1

marimo_cx

一体何してるんだか解りません
ソース出してください

補足

open (INPUT,"<$path/$filename") || die "could not open file : $!\n";
while($FTPremotefile = <INPUT>)
{
$FTP -> get($FTPremotefile, $FTPlocalfile) || die "Get失敗 $!\n";# ゲット（ファイルのダウンロード）
}
close (INPUT) || die "could not close file : $!\n";

INPUT(CSVFILENAME.TXT)にはダウンロードしたいファイル名が出力されているのですが、読み込んだとき1レコードの先頭の28文字分だけがファイル名であとは空白なので、空白が長すぎてゲットのところでエラーが出ているのではと思うのですが。