perlのNet::FTPで、ファイルかディレクトリか調べたい

現在、Perlでリモートバックアップする簡単なスクリプトを
書いています。

そのためにNet::FTPモジュールを使っているのですが、
use Net::FTP;
$ftp = Net::FTP->new($hostname);
$ftp->login($user,$pass);
$mydirs = $ftp->ls($backupdir);

のようにlsメソッドでファイル一覧を取得した後で、
各ファイルがファイルなのか、ディレクトリなのか
調べたいと思っています。しかしC言語のstat関数の
ようなメソッドはNet::FTPにはなさそうです。

どうすれば調べられるか、アドバイスいただけないでしょうか？

No.1 ベストアンサー 回答者： osamuy 回答日時： 2005/02/02 00:45

メソッドdirを使って、パーミッション表示列を調べるとか。

あるいは、実際にgetして、失敗した時のプロパティmessageから判定するとか。

再帰的にgetできるコマンド（nctftpとかwgetとか）を使った方が手っ取り早そうですが。

この回答へのお礼

ありがとうございます。

dirメソッドは、まさに求めていたものでした。
dirメソッドで得られる文字列を、正規表現で調べて
目的の機能を得られました。

お礼日時：2005/02/07 16:56

No.2 回答者： BLUEPIXY 回答日時： 2005/02/02 02:46

$ftp->size($filename);

でファイルのサイズ（バイト数）を得ることができます。
ディレクトリの場合は、""になり、ファイルがあるけどサイズが０の時は０になります。

この回答へのお礼

sizeメソッドを使う方法はトリッキーでおもしろいですね。
応用できそうな場面も多いように思います。

どうもありがとうございました。

お礼日時：2005/02/07 16:57