Frequenzliste mit Perl erstellen

[Siechfred]

Tag andy.

leider funktioniert der script noch nicht.

foreach (@NeueZeilen){

if (exists $Daten{$}){
    $Zaehler++;
    $Daten{$} = $Zaehler;
  }
  else {
    $Daten{$_} = 1;
  }
}

  
Eigentlich ganz einfach, das Problem ist $Zaehler. Der aktuelle Wert dieser Variable hat absolut nichts mit der bisherigen Häufigkeit von $Daten{$\_} zu tun. Wenn du statt dessen den Wert von $Daten{$\_} direkt erhöhst, also schreibst:  
  
~~~perl
if (exists $Daten{$_}){  
  $Daten{$_}++;  
}  
else {  
  $Daten{$_} = 1;  
}

dann wird alles gut :-)

Siechfred