Perl的-i开关似乎修改只读文件：
$echo 'foobar' > tmp.txt $chmod -w tmp.txt $perl -pi -w -e 's/foobar/FOOBAR/' tmp.txt $cat tmp.txt FOOBAR
这是意想不到的,因为命令不应该能够根据其权限修改文件.预期,尝试通过其他方式更新它失败：
$echo 'barbaz' > tmp.txt -bash: tmp.txt: Permission denied
为什么Perl修改只读文件(以及如何？),最重要的是：如何让Perl不这样做？
我可以找到的唯一有用的资料是在Perl FAQ：
The permissions on a file say what can happen to the data in that file. … If you try to write to the file,the permissions of the file govern whether you’re allowed to.
这最终似乎是它不能写的,因为文件系统说你不能.
解决方法
在BEGIN块中过滤@ARGV：
perl -pi -e 'BEGIN{@ARGV=grep{-w $_}@ARGV} s/foobar/FOOBAR/' files
现在,如果命令行上的任何文件都不可写,则@ARGV将为空,ARGV文件句柄将尝试从STDIN读取.我可以想到两种方法来防止这种问题：
>也可以在BEGIN块中关闭STDIN
perl -pi -e 'BEGIN{close STDIN;@ARGV=grep{-w $_}@ARGV}s/foobar/FOOBAR/' files
perl -pi -e 'BEGIN{@ARGV=grep{-w $_}@ARGV}s/foobar/FOOBAR/' files < /dev/null