古い記事
ランダムジャンプ
新しい記事
誰でも書き込できるファイルかどうかをチェック
(参考文献: Perl Cookbook[2002-06-21-4])
print "<b>このファイルには書き込めません</b>\n"
   unless (((stat($filename))[2] & 07222) == 0222);