Foro - Perl en Español

por **primitivo** » 2015-07-20 20:52 @911

Con el siguiente código capturo los caracteres que coinciden con los comodines '?' y '*', es decir:
? -> coincide con el carácter que esté en esa posición
* -> coincide con el/los caracteres que estén en principio, dentro o al final y justo antes del carácter siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cadena = 'bb??vt*u'; #aqui la formula equivale a n+1 = 'u'
my $cadena2 = "bbazvteeeeeeeertyXdfu";
for (my $y = length($cadena2),$x = 0;$x<=$y;$x++) {
  if (substr($cadena2,$x,1)) {
    switch (my $a = substr($cadena,$x,1)) {
      case '?' {
        #print "caracter " . substr($cadena2,index($cadena,'?',$x),1) . "\n"; 
        $strcpy+=substr($cadena2,index($cadena,'?',$x),1);
      }
      case '*' {
        $posicion = index($cadena,'*',1);
        if (my $ps = substr($cadena,$posicion+1,1)) {
          $xx=0;
          while (substr($cadena2,$posicion+$xx,1) ne $ps) {
            $strcpy.=substr($cadena2,$posicion+$xx,1);
            $xx++;
          }
          print "capturado: $strcpy\n";
        }
      }
      else {
        if (uc(substr($cadena2,$x,1)) eq uc(substr($cadena,$x,1))) {
          $strcpy+=substr($cadena2,$x,1);
        }
      }
    }
  }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero tiene un fallo: si encuentra un carácter igual al que está justo después de '*' (en este caso, 'u') la comprobación se detiene. Por ejemplo si $cadena2 tuviese como valor "bbazvteeeeueeeertyXdfu".

¿Cómo podría hacerse mejor? ¿O estoy "reinventando la rueda"?

#!/usr/bin/perl
use feature 'say';
use Regexp::Wildcards;
 
my $patron = 'bb??vt*u';
my $cadena = "bbazvteeeeeueertyXdfu";
 
my $rw = Regexp::Wildcards->new(type => 'win32');
$rw->capture('single');
$rw->capture(add => [ qw<any greedy> ]);
 
my $re = $rw->convert($patron);         # lo pasamos a expresión regular
 
#say "$re";                             # bb(.)(.)vt(.*)u
 
if ($cadena =~ $re) {
    say "Sí coincide: \$1:[$1] \$2:[$2] \$3:[$3]";     # Sí coincide: $1:[a] $2:[z] $3:[eeeeeueertyXdf]
}
else {
    say "No coincide";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El módulo Regexp::Wildcards convertirá un patrón, en este caso de tipo DOS o Win32, a una expresión regular. Solo tenemos que aplicarla a la $cadena, y listo.

Pero incluso puedes hacerlo sin el módulo: te vale con sustituir cada aparición de '?' por un '(.)' y de un '*' por un '(.*)', y ya está.

por **primitivo** » 2015-07-20 21:49 @951

¡Ostia! xD

Gracias

DDDDDDDDDDDDD

Foro - Perl en Español

Comodines (wildcards)

Comodines (wildcards)

Publicidad

Re: Comodines (wildcards)

Re: Comodines (wildcards)

¿Quién está conectado?