Perl中文件不存在时创建新文件的逻辑及代码是否可行？

1. Perl中实现「文件不存在则创建」的逻辑是否可行？ #

完全可行，Perl原生支持这类文件操作逻辑，甚至不需要手动判断文件是否存在——通过指定合适的文件打开模式，就能自动完成「不存在则创建」的操作。

2. 给出的代码在原文件缺失时是否会创建新文件？ #

会，但这段代码存在不少不规范的地方：

• 变量命名混淆：$fh通常用来指代文件句柄，但这里被用作文件名变量，容易造成误解，建议改用$filename这类语义清晰的命名。
• 缺少错误检查：open调用没有错误处理逻辑，如果遇到权限不足等无法创建文件的情况，脚本会静默失败，难以排查问题。
• 冗余判断：使用>模式打开文件时，Perl本身就会自动创建不存在的文件，手动判断!-e $fh完全多余。

更规范的写法参考：

# 直接用>模式打开：文件不存在则创建，存在则清空原有内容
open my $fh, '>', $filename or die "无法创建文件: $!";
print $fh "\n";
close $fh;

如果需要「文件不存在则创建，存在则追加内容」的逻辑，可改用>>模式：

open my $fh, '>>', $filename or die "无法打开文件: $!";
print $fh "\n";
close $fh;

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