我习惯了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.
原文链接：https://www.f2er.com/regex/356932.html对于这种情况,请将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
