einträge zählen (Allgemeines zu Perl)

[thread]18182[/thread]

einträge zählen

Tags: perl5 zählen gruppieren worte Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+11 replies
micneu

2013-03-04 13:27
User since
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:

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
- +8 replies
- Muffi
  
  2013-03-04 13:34
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3
  
  my %anzahl = (); $anzahl{$_}++ for <$fh>; print "$_ ($anzahl{$_})\n" for keys %anzahl;
  
  PS: Sieht nicht nach Perl6 aus
  1 + 1 = 10
  - +5 replies
  - micneu
    
    2013-03-04 13:37
    
    User since
    2008-11-27
    13 Artikel
    BenutzerIn
    
    sorry, habe hier nur perl5, wie kann ich den verschieben?
    - +4 replies
    - Raubtier
      
      2013-03-04 13:39
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      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)
      - +2 replies
      - micneu
        
        2013-03-04 14:06
        
        User since
        2008-11-27
        13 Artikel
        BenutzerIn
        
        dein einzeiler ist klasse und funktioniert, nur verstehe ich nicht wie man es in einem echten script umsetzt.
        
        ich glaube ich gebe auf, nutze kein perl mehr.... bin glaube ich zu doof.
        
        nice day euch allen und noch viel spaß
        
        Raubtier
        
        2013-03-04 14:27
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        2013-03-04T13:06:05 micneu
        dein einzeiler ist klasse und funktioniert, nur verstehe ich nicht wie man es in einem echten script umsetzt.
        
        ich glaube ich gebe auf, nutze kein perl mehr.... bin glaube ich zu doof.
        
        nice day euch allen und noch viel spaß
        
        Nicht gleich aufgeben! Ist doch gar nicht so schwer.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        use strict; use warnings; my %words; while(chomp(my $line = <>)) { ++$words{(split/:/, $line)[-1]}; } for (sort {$words{$a} <=> $words{$b}} keys %words) { say "$_: $words{$_}"; }
        
        Ist der so formatierte Code besser?
        - Einlesen: mit dem Handle <> liest du von der Standardeingabe oder einer übergebenen Datei. Dann Zeilenumbruch abschneiden (chomp).
        - mit split das -1 (=letzte) Element der an : aufgesplitteten Zeile ermitteln
        - ...und im Hash %words eins dazuaddieren
        
        - dann sortiert ausgeben
        
        Das hattest du doch schon praktisch alles fertig? Wenn du genauer fragst, was unklar ist, können wir dir helfen.
      - GwenDragon
        
        2013-03-04 14:29
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        ganz vereinfacht "übersetzt":
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        my %w; while (my $line = <>) { my $key = (split /:|\n/,$line)[-1]; ++$w{$key}; } for my $key (sort { $w{$a} <=> $w{$b} } keys %w) { say "$key: $w{$key}" }
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - micneu
    
    2013-03-04 13:43
    User since
    2008-11-27
    13 Artikel
    BenutzerIn
    
    2013-03-04T12:34:46 Muffi
    
    Code (perl): (dl )
    
    1 2 3
    
    my %anzahl = (); $anzahl{$_}++ for <$fh>; print "$_ ($anzahl{$_})\n" for keys %anzahl;
    
    danke für den codeschnipsel, wo muss ich den bei mir im code einfügen?
    ich hatte den am ende eingefügt nur leider scheint es nicht zu funktionieren.
    - Muffi
      
      2013-03-04 13:46
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Setzt dich doch noch mal ein paar Minuten hin und versuch zu verstehen was der Code macht. Ich glaub dann weisst du auch, wie man ihn einbaun soll.
      
      [EDIT] Der ist eh zwecks Sortierung nicht vollständig, also man wird den eh anpassen müssen.
      
      [EDIT2] Halt, sorry. Ich hab dein gibt "alle Zeilen" aus glaub ich falsch verstanden. Ich dachte es gibt wirklich alle Zeilen der Datei einfach aus.
      
      [EDIT3] Der Code sieht zwar ein bisserl unhandlich aus, aber eigentlich sollt er tun. Was macht er denn nicht?
      Last edited: 2013-03-04 13:56:35 +0100 (CET)
      1 + 1 = 10
- GwenDragon
  
  2013-03-04 13:41
  
  User since
  2005-01-17
  14760 Artikel
  Admin1
  
  Verschoben von Raku / Perl 6 nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Muffi
  
  2013-03-04 14:23
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Ich glaub ich habs jetzt verstanden. Du sortierst nach $a->[1]. Da steht $hash{$_}, also die Anzahl, nicht die Zeile drin.
  
  Wenn du nach dem letzten Wort der Zeile sortieren willst würd ich $hash{$_} dadurch ersetzen:
  
  Code (perl): (dl )
  
  last_word($_)
  
  und
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  sub last_word { my $line = shift; my @words = split(/\//, $line); return $words[-1]; }
  
  PS: und <=> durch cmp ersetzen
  Last edited: 2013-03-04 14:24:36 +0100 (CET)
  1 + 1 = 10

View all threads created 2013-03-04 13:27.