perlのローカルプログラムでディレクトリのアクセス権を取得したい

お世話になっています。

Linux上で動作するperlのプログラムを作成しています。（ローカルプログラムでCGIではありません。）
このperlプログラムであるバイナリファイルを分割して別のディレクトリにコピーさせようとしているのですが、コピー先のディレクトリにプログラム実行ユーザーの書き込み権限があるかを調べたいと思っています。
ネットで調べたのですがこのような処理が出来るのかどうかも不明です。
もし、ご存知の方がおられましたらディレクトリの書き込み権限を調べる方法を教えていただけないでしょうか？
ヒントでもけっこうですのでよろしくお願いいたします。

No.1 ベストアンサー 回答者： tandes 回答日時： 2006/10/04 23:36

「ファイルテスト演算子」を使うと簡単です。

if(-w "/tmp/test"){
# /tmp/testは書き込み可能
}

この回答へのお礼

ありがとうございます！！
教えていただいた方法でバッチリできました！
インターネットで「ファイルテスト演算子」というキーワードでもう少し調べてみようと思います。
本当に助かりました。

お礼日時：2006/10/05 00:17