[bcn-pm] regexp

[Enrique Nell]

Te envío una versión que incluye el número de línea en los resultados:

my $file = 'test.txt';
open my $fh, '<', $file;

while (<$fh>) {
       chomp;

       print "Line: $.\n";

       my @words = split /\s+/;

       for (my $i = 0; $i<=$#words; $i++) {
               if ($words[$i] =~ /Paraula\d{1,3}(.+)$/) {
                       print "Columna ", $i+1, ": $1\n";
               }
       }
       print "\n";
}

close $fh;

Saludos
Enrique

On 2/20/07, Xavier Pegenaute <xpegenauteatelepolis.es> wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Hola,
>
> si, al final lo haré mas o menos así. Si acaso luego os paso un ejemplo
> mas y os formulo la pregunta de otra manera.
>
> Gracias por todo!!
> Xavi.