如何在Perl中检查正则表达式模式是否有效？

Question

首先,我想知道是否有某种内置函数可以检查正则表达式模式是否有效.我不想检查表达式是否有效 - 我只是想检查它以确保模式的语法有效 - 如果可能的话.

如果没有内置功能,我该怎么做？我还需要吗？

是否有我可以搜索的内置函数/模块的目录,所以我可以避免更多这样的问题？谢谢.

编辑:我应该提一下,我计划根据用户输入动态生成这些模式 - 这就是为什么我要验证它们以确保它们实际运行.

Answer 1

我不是Perl专家,但也许这可以帮助:

#!/usr/bin/perl

my $pattern = "["; # <-insert your pattern here
my $regex = eval { qr/$pattern/ };
die "invalid regex: $@" if $@;

返回这个:

invalid regex: Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE / at test.pl line 4.

对于第二个问题,您可以随时查看CPAN的大量工作.