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

質問

お世話になっています。

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

回答No.1

tandes · ベストアンサー

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

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

お礼

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