[bcn-pm] regexp

[Enrique Nell]

Hola Xavier

¿Puedes enviar un ejemplo de línea?
Suponiendo que te refieres a líneas que contienen cosas como
"Paraula22Indefinit", en principio, podrías hacerlo así:

while (<$fh>) {
	chomp;

	my @words = split /\s+/;	

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