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

前端之家收集整理的这篇文章主要介绍了如何在Perl中检查正则表达式模式是否有效?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
首先,我想知道是否有某种内置函数可以检查正则表达式模式是否有效.我不想检查表达式是否有效 – 我只是想检查它以确保模式的语法有效 – 如果可能的话.

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

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

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

解决方法

我不是Perl专家,但也许 this可以提供帮助:

#!/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的大量工作.

猜你在找的Perl相关文章