[bcn-pm] regexp

[Xavier Noria]

On Feb 20, 2007, at 5:54 PM, Xavier Pegenaute wrote:

> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Hola,
>
> si, però m'interessaría que només continues el matching al trobar la
> paraula "Indicativo" com a inici de línea, i a més m'agradaría  
> saber si
> es possible fer tot això amb una sola expressió regular.

Una opcio es posar un filter al principi, si encaixa amb com ho tens  
muntat queda net:

   while (my $line = <$fh>) {
       next if $line !~ /^Indicativo\b/;

       my @words = $line =~ /\b(PREF\w*)/g;
       foreach my $word (@words) {
           # ...
       }
   }

-- fxn