Textdatei einlesen und formatatiert wieder ausgeben

[Bio]

Sup!

Sicher kann ich helfen: Kauf' Dir ein Perl-Buch (z.B. "Programming Perl").

"   000KK222225523AU"

soll werden zu:
"   ;000;K4;2222;5523;AU;"

Wenn ich die Datei in einem Array einlese, hat dieser Array ja nur die Zeilennummern als Index und ich kann nicht direkt drauf zugreifen. Kann mir da jemand helfen?

Versteh' ich nicht - wenn Du einen Array hast, dann kannst Du doch auf die Zeilen zugreifen?

Also wie wäre das:

#!/usr/bin/perl
open IN,"<test.dat";
@array=<IN>;
close IN;
print @array;
@newarray = map {s/^(...)(...)(...)(.*)$/$1;$2;$3;$4/} @array;
print @array;

Gruesse,

Bio