Zeilen einlesen und nach dritter Spalte sortieren - #113936 (Allgemeines zu Perl)

leo11

2008-08-24 11:04

User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]

Hallo,

es ist mal wieder We und ich versuch ein bißchen in Perl weiter zu kommen. Daher hab ich mir als Ziel gesetzt die hier angesprochene Aufgabe etwas abzuändern. Die zu sortierende Datei sieht wie folgt aus:

Zeile1;;100;;
Zeile2;;60;;
Zeile3;;20;;
Zeile4;;20;;
Zeile5;;40;;
....
Zeile n

Ich lese sie wie folgt in ein Array ein:

Code (perl): (dl )

while(<FILE>)
{
         push (@zeilen, [$_,( split /;/ )[3]]);                                 
}

Nun möchte ich alle Zeilen bei denen in der dritten Spalte eine 20 steht aus @zeilen herausnehmen und in ein neues array speichern. Ich habe dafür mit splice experimentiert, aber ich bin nicht auf die konkrete Lösung gekommen. Ich finde die Infos in perldoc -f splice auch recht kurz. auf folgende Art habe ich es versucht:

Code (perl): (dl )

for my $zeile1 (@zeilen) {
        if ( $zeile1->[1] =~ m/20/) {
                #print $zeile1->[0];
                @zweierlevel=splice(@zeilen,$_,1);
        };
};

Ich habe auch Kombis mit grep probiert. Erfolglos. Würde mir jemand einfach mal zeigen wie man das macht?

-----------
Als nächstes möchte ich alle Zeilen bis zur 20 aus @zeilen nehmen und in ein extra Array zu speichern. Wie kann man das machen?