Foro - Perl en Español

¿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?

Puedes usar una bandera que te indique si estás dentro o no de ese bloque:


aunque en Perl hay una forma más abreviada de hacerlo, con la técnica del flip-flop:

Y otra forma más: con expresiones regulares, ya que estamos buscando un patrón:

En el segundo caso,en el bucle foreach() en la expresión


¿Qué significa ".." ?

Y partiendo del siguiente ejemplo:



Se podrían obtener:



Es decir, desechar todo aquello que vaya detrás de /?

Y obtener:



Es decir: obtener desde gen hasta justo delante de "/"?

Esto ya es simple curiosidad porque el problemas ya lo tengo resuelto.

El operador '..' es eso, un operador de Perl. Se utiliza de dos formas:

a. Para crear listas de valores: my @lista = 12 .. 231;

b. Para hacer de flip-flop. En cada ciclo del bucle se comprueba la primera expresión (la del lado izquierdo). Si es falsa, el operador devuelve falso. Si es verdadera, el operador devolverá verdadero a partir de ese momento, hasta que se cumpla la expresión del lado derecho. Es como un interruptor.

Más información en el apartado Range Operators, de perldoc perlop.

En cuanto a la segunda cuestión, te basta con modificar la expresión regular:



Fíjate que dejamos fuera de los paréntesis de captura a la barra '/'. Solo es necesario ese cambio.

con el bucle foreach(), ¿cómo sería?