正则表达式 – 将变量插值为正则表达式

前端之家收集整理的这篇文章主要介绍了正则表达式 – 将变量插值为正则表达式前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我习惯了Perl但是Perl 6新手

我想在文本变量中托管正则表达式,就像我在perl5中所做的那样:

my $a = 'abababa';
my $b = '^aba';
if ($a =~ m/$b/) {
        print "True\n";
} else {
        print "False\n";
}

但如果我在Perl6中做同样的事情它不起作用:

my $a = 'abababa';
my $b = '^aba';

say so $a ~~ /^aba/;  # True
say so $a ~~ /$b/;    # False

我很困惑……我错过了什么?

你需要仔细看看 Quoting Constructs.

对于这种情况,请将LHS的一部分作为带有尖括号或< {和}>的单独标记

my $a = 'abababa';
my $b = '^aba';
say so $a ~~ /<$b>/;       # True,starts with aba
say so $a ~~ /<{$b}>/;     # True,starts with aba

my $c = '<[0..5]>'
say so $a ~~ /<$c>/;       # False,no digits 1 to 5 in $a
say so $a ~~ /<{$c}>/;     # False,no digits 1 to 5 in $a

另一个故事是当你需要将变量传递给限制量词时.这是你只需要使用大括号的地方:

my $ok = "12345678";
my $not_ok = "1234567";
my $min = 8;
say so $ok ~~ / ^ \d ** {$min .. *} $/;         # True,the string consists of 8 or more digits
say so $not_ok ~~ / ^ \d ** {$min .. *} $/;     # False,there are 7 digits only

原文链接:https://www.f2er.com/regex/356932.html

猜你在找的正则表达式相关文章