Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? - #59384 (Allgemeines zu Perl)

Dubu

2005-11-09 12:02

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Das sind keine Fehlermeldungen sondern Warnungen. Deine Interpretation, woher diese kommen, wird richtig sein. Um die Warnungen weg zu bekommen, kannst du entweder vor dem Sortieren dafuer sorgen, dass leere Angaben in Nullen geaendert werden, oder das beim Sortieren beruecksichtigen.

Also:

Code: (dl )

# evtl. Leerstrings im letzten Feld durch Nullen ersetzen
$_->[-1] = 0 unless $_->[-1] for @entries;

# sortiere nach dem letzten Feld (sort-Teil) numerisch 
# und gebe immer die komplette Zeile zurueck (map-Teil)
my @sorted = map{$_->[0]}sort{$a->[1] <=> $b->[1]}@entries;

oder

Code: (dl )

1
2
3

# sortiere nach dem letzten Feld (sort-Teil) und gebe immer die komplette
# Zeile zurueck (map-Teil)
my @sorted = map{$_->[0]}sort{($a->[1] || 0) <=> ($b->[1] || 0)}@entries;

Die zweite Methode wird bei groesseren Listen laenger dauern, weil beim Sortieren der Vergleichscode meist haeufiger ausgefuehrt wird.