检查本地系统上是否存在c：\ temp - PERL / RegEx

Question

我的语法有什么问题：

if (-d =~ /c:\\[Tt][Ee][Mm][Pp]/i) {
print "There is a directory c:\\TEMP already..\n!";
}
else {
print "didn't find";
}

Answer 1

您应该使用perl module written for handling temp files或使用Win32 API to obtain the temp folder，而不是检查C：\ Temp或其众多变体之一。

Answer 2

我认为你需要opendir(my $dh,'C:\temp\\' or die;if(-d $dh){...。

查看perldoc -f '-x'

Answer 3

我想通了：if（-e“c：\ temp”）{