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

发布时间：2020-12-14 06:25:31 所属栏目：百科来源：网络整理

导读：我习惯了Perl但是Perl 6新手我想在文本变量中托管正则表达式,就像我在perl5中所做的那样： my $a = 'abababa';my $b = '^aba';if ($a =~ m/$b/) { print "Truen";} else { print "Falsen";} 但如果我在Perl6中做同样的事情它不起作用： my $a = 'abababa'

我习惯了Perl但是Perl 6新手

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

my $a = 'abababa';
my $b = '^aba';
if ($a =~ m/$b/) {
        print "Truen";
} else {
        print "Falsen";
}

但如果我在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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!