Der Code sieht doch auch so aus, als würde er mit Perl5 laufen? Sofern natürlich vorher $fh geöffnet wurde.

Schnellschuss:
$ perl -E'%w;++$w{(split/:|\n/)[-1]}while<>;say "$_: $w{$_}" for sort {$w{$a}<=>$w{$b}} keys %w;' < /etc/passwd

Wo ist denn das Problem? Du hast doch praktisch schon alles fertig gehabt - bis auf das split, um das letzte Element der Zeile zu bekommen.

Edit: uups, ich hatte bei Perl6 das "nicht" übersehen.
Last edited: 2013-03-04 13:42:47 +0100 (CET)