substrについて

質問

入力ファイルから28文字分のファイル名を取り出し、リモートからローカルにダウンロードしたいのですが、substrがうまく働きません。
どのようにすればよいのでしょうか？
以下のとおり記述しています。

open (INPUT,"<$path/$filename") || die "could not open file : $!\n";
print "$path/$filenameファイルをオープンしました。";
print "\n";

while(<INPUT>)
{
$FTPremotefilename = substr($_,0,28);
print "FTPremotefile名は$_です。";
print "\n";
$FTP -> get($FTPremotefile, $FTPlocalfile) || die "Get失敗 $!\n";# ゲット（ファイルのダウンロード）
}
close (INPUT) || die "could not close file : $!\n";

$_は内容が表示されるのですが、substrで指定した、$FTPremotefileになにも抽出されませんでした。

回答No.1

moon_night · ベストアンサー

$FTPremotefile
ではなく、
$FTPremotefilename
に代入しているからではないでしょうか。

お礼

そのようです。ありがとうございます。