Modificar archivos de texto [batch] [Perl]

[bjeli1980]

Ahora creo que sí.

Lo he dejado así:

Código (perl) [Seleccionar] Expandir

my ($a, $kk, $num, $b) = $s =~ m/(([^;]*;){6})([0-9]*)(.*)$/;
$num--;
$s = $a . $num . $b ."\n";