Búsqueda de patrones
Publicado: 2009-08-17 06:37 @317
¿Cómo podría hacer para buscar dentro de un fichero todas las líneas que comiencen por la palabra gen y terminen en el símbolo "/"?
Tengo el siguiente código escrito donde @fichero es donde tengo almacenado el contenido del fichero:
que me devuelve únicamente las líneas que comienzan por "gen". Así, por ejemplo, si fuera el siguiente caso:
obtengo solo la primera línea: gen 12345678909853726423652836507
y yo quiero obtener las tres líneas.
¿Cómo se podría hacer partiendo de mi código?
Tengo el siguiente código escrito donde @fichero es donde tengo almacenado el contenido del fichero:
Using perl Syntax Highlighting
foreach my $linea (@fichero){
if ($linea =~ /^gen/) {
$union .= $linea;
}
}
if ($linea =~ /^gen/) {
$union .= $linea;
}
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
que me devuelve únicamente las líneas que comienzan por "gen". Así, por ejemplo, si fuera el siguiente caso:
Using text Syntax Highlighting
obtengo solo la primera línea: gen 12345678909853726423652836507
y yo quiero obtener las tres líneas.
¿Cómo se podría hacer partiendo de mi código?