如何用`perl -i`忽略只读文件？

发布时间：2020-12-15 21:33:39 所属栏目：大数据来源：网络整理

导读：Perl的-i开关似乎修改只读文件： $echo 'foobar' tmp.txt$chmod -w tmp.txt$perl -pi -w -e 's/foobar/FOOBAR/' tmp.txt$cat tmp.txtFOOBAR 这是意想不到的,因为命令不应该能够根据其权限修改文件.预期,尝试通过其他方式更新它失败： $echo 'barbaz' tmp.txt

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

>始终从/ dev / null调用这个单行重定向输入

perl -pi -e 'BEGIN{@ARGV=grep{-w $_}@ARGV}s/foobar/FOOBAR/' files < /dev/null

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!