Thread Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? (51 answers)
Opened by Gast at 2005-10-26 14:09

duerov
 2005-10-28 16:44
#59358 #59358
User since
2005-10-26
27 Artikel
BenutzerIn
[default_avatar]
Hallo nochmal!
Hätte noch was.
Hab jetzt alle Daten in folgendem Format in meiner .txt stehen.
Firma1 8263112 94626384523 16
Firma2 8263112 94626384523 33
Firma3 8263112 94626384523 04
Nun möchte ich die nach der letzten Zahl (04,16,33) sortieren -> Ziel ->
Firma3 8263112 94626384523 04
Firma1 8263112 94626384523 16
Firma2 8263112 94626384523 33
Hab das mal so probiert (nur Ausgabe):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open(DATEI,"datei.txt") || die "File nicht gefunden";
while(<DATEI>) 
{
        my @anzahl = $_;
        my @sortierung = sort(NummernSort @anzahl);  #<--Da muss was in der Art (Nummern Sort $anzahl[3]); rein
        for(@sortierung)
        {
            print $_;
        }
        
        sub NummernSort {
        if($a < $b)
        { return -1; }
        elsif($a == $b)
        { return 0; }
        else
        { return 1; }
}

Was hier halt noch fehlt ist der Zugriff auf die im Array stehenden Zahlen (16,33,04). Hab schon einiges ausprobiert, aber entweder Fehlermeldung oder kein Effekt.
Gruß und Dank im Voraus
duerov\n\n

<!--EDIT|duerov|1130503594-->

View full thread Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie?