[bcn-pm] regexp

[Xavier Noria]

On Feb 20, 2007, at 3:15 PM, Xavier Pegenaute wrote:

> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Hola,
>
> lo que quería ya lo tengo solucionado, ahora bien, la duda ya es algo
> mas personal, tengo una linea dentro de un fichero como:
>
> "Indicativo   PREF_1   noimporta   PREF_2   PREF_3"
>
> Donde como antes la linea siempre empieza por "Indicativo" luego le
> siguen un conjunto de palabras que solo un subconjunto de ellas es
> importante, en este ejemplo las que tienen como prefijo "PREF".
> La cantidad y el orden de aparición (después de "Indicativo") es
> desconocido. Podría EN UNA LINEA hacer:
> 1) Detectar que la línea me interesa.
> 2) Parsear la linea.
> 3) Devolver un array de todas la palabras que empiezan con "PREF".

Si tens la linia a $line:

   my @words = $line =~ /\b(PREF\w*)/g;
   if (@words) {
       # aquesta linia interessa
   }

Pots interpolar "PREF" si fos variable, usar foreach en comptes d'if,  
etc., pero veus la idea.

-- fxn