Foro - Perl en Español

por **Skull118** » 2013-10-04 13:00 @583

Buenos días, expertos de Perl en Español, acudo nuevamente a ustedes debido a que tengo una complicación bastante compleja, la cual googleé, he incluso busqué en el foro, con resultados negativos.

Tengo una matriz de la siguiente manera.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @vmatriz=qw(val1 val2 val3 val4);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Tengo un archivo de texto el cual paso a una variable matriz de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
my @a=glob("*.txt");
foreach$a(@a){
  open(A, "$a");
  my @L=<A>;
  foreach(@L){
     # aquí necesito buscar si en la línea actual contiene algún valor de la matriz @vmatriz
  }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De antemano, muchas gracias por la ayuda. Cabe resaltar que utilizo Perl para Windows. Éxitos.

use strict;
use warnings;
use autodie;
 
for my $archivo (glob("*.txt")) {
    open my $ARCHIVO, '<', $archivo;
    my @LINEAS = <$ARCHIVO>;
    close $ARCHIVO;
 
    for my $linea (@LINEAS) {
        if ($linea =~ /$matrizreg/o) {
            print "Lo encontré\n";
        }
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Buscar valor $string dentro de matriz

Buscar valor $string dentro de matriz

Publicidad

Re: Buscar valor $string dentro de matriz

¿Quién está conectado?