my @HighscoreListe soll dateien sortieren

[Gabi]

Hallo und guten Morgen erstmal!

Leider stehe ich hier zeit 20 Stunden vor einem nichtlösbaren Rätsel.

Dass Funktioniert die grösste Zahl zu erst dann die kleineren untereinender:

my @HighscoreListe = (9834,9837,5989,4509,4329,6509,2837,8289,10845);
my @SortierteListe = sort(NummernSort @HighscoreListe);
print "@SortierteListe-<BR>";

sub NummernSort {
 if($a > $b)
  { return -1; }
 elsif($a == $b)
  { return 0; }
 else
  { return 1; }
}

aber warum sortiert es nicht:

opendir(DIR, "logdateien");
@log =  grep(/.log$/,readdir(DIR));
closedir(DIR);

foreach(@log) {
if($_ =~ /.+.log*/) {
$_ =~ s/.log$//gi;

my @HighscoreListe = $_;
my @SortierteListe = sort(NummernSort @HighscoreListe);
print "@SortierteListe-<BR>";

sub NummernSort {
 if($a > $b)
  { return -1; }
 elsif($a == $b)
  { return 0; }
 else
  { return 1; }
 }
}

Für eine Lösung wäre ich sehr! Dankabar!

mir freundlichen Grüßen

Gabi

[Cheatah]

Hi,

my @SortierteListe = sort(NummernSort @HighscoreListe);

wozu NummernSort? Dazu gibt es einen Operator; siehe

perldoc -f sort
perldoc perlop

Zu der Schreibweise von Variablennamen siehe

perldoc perlstyle

aber warum sortiert es nicht:
my @HighscoreListe = $_;

Was ist $_, was für ein Variablentyp ist es, und was für einen Variablentypen möchtest Du in ein @array speichern?

Für eine Lösung wäre ich sehr! Dankabar!

Debugausgaben, Mädchen, Debugausgaben. Wenn etwas nicht so reagiert, wie Du es Dir vorstellst, lasse Dir alles mögliche ausgeben.

Cheatah