使用eval,perl验证正则表达式的语法

・1 分钟阅读

验证正则表达式的语法

perl -we 'my $regex = eval {qr/.*/}; die"$@" if $@;'
将要验证的正则表达式放在eval块中的正斜杠之间,
示例输出
$ perl -we 'my $regex = eval {qr/*/}; die"$@" if $@;'
Quantifier follows nothing in regex; marked by <-- HERE in m/* <-- HERE / at -e line 1.
Hujiuxiang profile image