如何在Perl中识别字符串中的Windows文件路径?

^(\\\\|[^\\])*$

将匹配只包含转义的字符串 \ 字符或非字符- \ 字符。(为了获得一点额外的性能,您可以将其改进为: ^(?:\\\\|[^\\]+)*$ )

在Perl中:

if ($subject =~ m/^(?:\\\\|[^\\]+)*$/) {
    # Successful match
} else {
    # Match attempt failed
}

这个会匹配的

C:\\Program Files\\test
abcd
h983475iuh 87435v z 87tr8v74
\\\\\\\\\\

并且失败了

C:\Program Files\test
\
\\\

等。

如果作为应用程序的用户,你对我耍了这个花招,我会很生气的。为什么不强制用户以某种格式提供数据,而是在用户输入数据后重新格式化数据?

看看 quotemeta 功能( perldoc -f quotemeta ,它将自动为您转义所有反斜杠(以及其他可能的特殊字符)。