[plamo:25822] ftp をopen2で使用

[早間]

早間です。

my $server="ftp.example.co.jp";
open2 ( \*Reader, \*Writer, "ftp $server");
print Writer "\n";
while (<Reader>){
    print $_;     <<<---確認用です。何も出力されません
    if ($_ =~ /^ftp>/) {last;}
}

...
print Writer "modtime file\n";
$_=<Reader>;
if (.日付比較.) {
print Writer "put file\n";

と言う方法で更新ファイルを自動アップロードしようと思ったのですが
open2 で ftp は起動されるのですが ftp サーバからのメッセージが表示
出来ません。
 ~/.netrc には、サーバとログインの設定はしてあります。手操作で
 $ ftp ftp.example.co.jp
は実行して get put とも可能です。

-- 早間 義博