如何在Perl中以sudo权限打开新文件进行写入？

直接打开受保护目录下的文件会因权限不足报错，你尝试的第二种代码因管道方向错误、参数传递不当无法正常工作。以下是可行的实现方式：

方法1：使用sudo tee写入文件 #

tee命令可将输入内容写入指定文件，配合sudo即可获得足够权限。这种方式无需依赖shell解析重定向，安全性更高：

my $filename = "/path/to/protected/file";

# 覆盖写入文件
open(my $fh, '|-', 'sudo', 'tee', $filename) 
    or die "无法打开文件 '$filename'：$!";

print $fh "需要写入的内容\n";
print $fh "多行内容也可以\n";

close $fh 
    or die "关闭文件句柄失败：$!";

如果需要追加内容而非覆盖，给tee添加-a参数即可：

open(my $fh, '|-', 'sudo', 'tee', '-a', $filename) 
    or die "无法打开文件 '$filename'：$!";

方法2：通过shell处理重定向 #

若需要使用标准的文件重定向语法，可借助sudo调用shell执行写入命令，注意要安全传递文件名避免shell注入：

my $filename = "/path/to/protected/file";

# 安全传递文件名，避免特殊字符解析问题
open(my $fh, '|-', 'sudo', 'sh', '-c', 'cat > "$1"', '--', $filename) 
    or die "无法打开文件 '$filename'：$!";

print $fh "写入内容\n";
close $fh or die "关闭句柄失败：$!";

关键说明 #

• 你的代码2错误使用了'-|'（读取管道），而写入需要用'|-'（写入管道），且不能直接将">"作为sudo的参数——>是shell的重定向符号，需要由shell解析或用tee替代。
• 若未配置免密sudo，执行时终端会提示输入sudo密码，这是正常的安全机制，不建议硬编码密码到脚本中。

内容的提问来源于stack exchange，提问作者BMD