Foro - Perl en Español

por **BigBear** » 2011-06-21 16:16 @719

Tengo este código donde puse la expresión regular bien hecha pero cuando la saco para usarla el script automáticamente le saca las barras y la expresión regular sale mal.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@test  = ("\('hola'\)\/");
$texto = "('hola')/";
 
for my $tes (@test) {
    if ( $texto =~ /$tes/ ) {
        print "yeah\n";
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿ Cuál es el error ?

#!/usr/bin/perl
 
my @test  = ("('hola')/");
my $texto =  "('hola')/";
 
for my $tes (@test) {
    my $patron = "\Q$tes\E";
    print "Comprobando [$patron]\n";
    if ( $texto =~ /$patron/ ) {       
        print "yeah\n";
    }
}
 
__END__
Comprobando [\(\'hola\'\)\/]
yeah
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Escapando caracteres en la expresión regular

Escapando caracteres en la expresión regular

Publicidad

Re: Escapando caracteres en la expresión regular

Re: Escapando caracteres en la expresión regular

¿Quién está conectado?