Opened by micneu at 2013-03-04 13:27
User since
2008-11-27
13 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-11-27
13 Artikel
BenutzerIn
Hallo Leute,
ich möchte alle doppelten/mehrfachen worte zählen, wie kann ich es machen?
So oder ähnlich soll die ausgabe sein:
habe mal als beispiel die passwd genommen:
wie bekomme ich es in perl hin?
mit dem script bekomme ich nur einfach alle zeilen ausgegebn.
möchte beispiels weise nach dem letzen wort soriert und gezählt/gruppiert haben.
Gruß Michael
ich möchte alle doppelten/mehrfachen worte zählen, wie kann ich es machen?
So oder ähnlich soll die ausgabe sein:
habe mal als beispiel die passwd genommen:
Quote/bin/sync (1 Anzahl)
/bin/bash (3 Anzahl)
/bin/sh (18 Anzahl)
/bin/false (19 Anzahl)
/usr/sbin/nologin (1 Anzahl)
wie bekomme ich es in perl hin?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$quelldatei = $ARGV[0] or die 'Bitte Quelldatei angeben!';
open "Q", "<$quelldatei" or die "Datei $quelldatei wurde nicht gefunden";
foreach (<Q>) {
push @array, $_;
}
$hash{$_}++ for @array;
@sortiert = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { ["$_ $hash{$_}mal", $hash{$_}] } (keys %hash) ;
print join ("\n",@sortiert);
mit dem script bekomme ich nur einfach alle zeilen ausgegebn.
möchte beispiels weise nach dem letzen wort soriert und gezählt/gruppiert haben.
Gruß Michael