在Perl中,可以使用-e
文件测试运算符来判断文件是否存在。该运算符返回一个真值(1)如果文件存在,并返回一个假值(空字符串)如果文件不存在。
以下是一个示例代码:
my $filename = "example.txt";
if (-e $filename) {
print "文件存在\n";
} else {
print "文件不存在\n";
}
在上述示例中,首先定义了一个文件名example.txt
,然后使用-e
文件测试运算符来判断文件是否存在。如果文件存在,则打印"文件存在",否则打印"文件不存在"。