M1 Mac上Perl 5.30.2的-e文件存在性检测异常问题

核心原因是Perl内置的文件检测操作符（如-e、-f等）不会自动处理shell特有的路径扩展规则，你路径里的~是shell专属的家目录占位符，Perl原生API无法识别，会把~当成普通的目录名字符串去查找对应路径，自然找不到文件。而你调用system("ls -l $file")时，system函数会先把字符串传给shell执行，shell会自动把~替换为当前用户的真实家目录路径，所以能正常找到目标文件。

• 手动展开家目录路径：不要在Perl的文件路径里写~，用$ENV{HOME}来拼接路径，示例如下：

# 错误写法
my $file = '~/Documents/XWM10/Dic13.txt';
# 正确写法
my $file = "$ENV{HOME}/Documents/XWM10/Dic13.txt";

• 如果确实需要兼容带~的路径输入，可以手动做波浪号替换，示例逻辑：

my $file = '~/Documents/XWM10/Dic13.txt';
$file =~ s{^~([^/]*)}{$1 ? (getpwnam($1))[7] : $ENV{HOME}}e;

• 排查M1 Mac专属权限问题：如果替换路径后还是检测失败，检查当前执行Perl脚本的终端/IDE是否有Documents目录的访问权限，可在「系统设置→隐私与安全性→文件和文件夹」中确认对应应用的Documents权限是否开启。
• 调试辅助：如果还是有异常，可以在-e检测前打印解析后的真实路径，确认路径是否符合预期：

print "当前解析的文件路径：$file\n";
die "文件不存在" unless -e $file;

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