¿Por qué smartmatch devuelve falso cuando juego con una expresión regular que contiene barras diagonales?

Question

estoy tratando de coincidir con una cadena simple en contra de un patrón de expresión regular usando el operador 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/; 

me esperaba esto para imprimir "bien", pero no es así. Por qué no?

Answer 1

Retire las barras de su expresión regular:

my $name = qr{(\w+)}; 

Puesto que usted está envolviendo la expresión regular en qr{}, todo dentro de las llaves se interpreta como la expresión regular. Por lo tanto, si se va a ampliar su búsqueda a cabo, sería:

print "ok\n" if $line ~~ /\/(\w+)\//; 

Debido a que su cadena no empezar o terminar con barras (o tiene alguna subcadenas que hacer), entonces la comparación falla, y usted no imprima ok.