Datei auslesen

[Struppi]

Mein Suchmuster:
for (my $l=0; $l<5; $l++)

Sowas macht man in Perl fast nie, ei array läßt sich so durchlaufen:
foreach(@datei) {... }

{
$datei[$i] =~ /([0-9]{4})([C]{1})(.{182})/;
......

Mein Problem ist, das er immer nur einen Satz speichert (den ersten der jeweiligen Datei) obwohl die datei bis max. 5 Stück enthält auf die das Suchmuster zutrifft. Hab mir auch schon die Postion des Zeiger anzeigen lassen. Dieser befindet sich sobald er den ersten Satz gefunden hat am Ende der Datei....

Dein Suchmuster sucht ausdrücklich auch nuur das erste Vorkommen des Musters. Du kannst wenn es mehrfach vorkommt z.b. so durchsuchen:

my @suche = ( $datei[$i] =~ /([0-9]{4})([C]{1})(.{182})/g);

Struppi.