Textdatei einlesen und formatatiert wieder ausgeben

[Oliver]

Hi,
ich möchte ein Programm schreiben, das Text aus einer Textdatei einliest und in eine andere Textdatei wieder einfügt, und dabei in jeder Zeile immer an den gleichen Stellen Semikolons einfügt.

Also ungefähr so:
Original:

"   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?

vielen Dank!

[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