Perl Tips

誰でも書き込できるファイルかどうかをチェック
(参考文献: Perl Cookbook[2002-06-21-4])

print "<b>このファイルには書き込めません</b>\n"
   unless (((stat($filename))[2] & 07222) == 0222);