我正在尝试使用smartmatch运算符将简单字符串与正则表达式模式匹配：
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
my $name = qr{/(\w+)/};
my $line = 'string';
print "ok\n" if $line ~~ /$name/;
我希望这打印“确定”,但事实并非如此.为什么不？
从正则表达式中删除斜杠：
my $name = qr{(\w+)};
由于您正在将正则表达式包装在qr {}中,因此大括号内的所有内容都将被解释为正则表达式.因此,如果您要扩展搜索范围,那么它将是：
print "ok\n" if $line ~~ /\/(\w+)\//;
由于您的字符串不以斜杠开头或结尾(或者有任何子字符串),因此匹配失败,并且您不打印ok.
