Wörterliste addiert sich (Perl/CGI)

[thread]20425[/thread]

Wörterliste addiert sich

Tags: perl5 CGI Array Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies
Clubcola

2018-02-06 18:01
User since
2015-12-23
4 Artikel
BenutzerIn
Hallo,

ich habe ein Script, welches aus einem Text $beschr1 alle Wörter nach Vorkommen zählen und dementsprechend sortieren soll. Das klappt soweit. Nur wird bei mehreren Texten in einer Schleife das Array immer größer. Wenn ich das richtig sehe zählt er die Wörter des vorherigen Schleifendurchlaufs mit.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

$anfrage = "SELECT * FROM artikel"; &datenbank; $ergebnisse = $sth->fetchall_arrayref( {beschr1 => 1, id => 1} ); foreach(@$ergebnisse) { $beschr1 = $_->{beschr1}; $id = $_->{id}; ## Wörter in Array schreiben, zählen und nach Vorkommen sortieren push @liste, split /[^a-zA-ZäöüÄÖÜß-]/, $beschr1; foreach $wort (@liste) { $wortliste{$wort}++; } foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); } my @sortierte_liste = sort { $b <=> $a } @neue_liste; print "<br>".@sortierte_liste; }
Am Ende zeigt er mir pro Durchlauf die gespeicherten Elemente im Array, die sich pro Durchlauf immer weiter erhöhen.

Ich habe es versucht, alle strings und arrays vor dem nächsten Durchlauf zu leeren - bringt alles nichts.

Habt ihr eine Idee?

Danke

modedit Editiert von GwenDragon: Neu formatiert
Last edited: 2018-02-06 19:58:21 +0100 (CET)
- +4 replies
- GwenDragon
  
  2018-02-06 20:16
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Dein Code war:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  foreach $wort (@liste) { $wortliste{$wort}++; } foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); }
  
  %wortliste hat ja immer dieselbe Anzahl an Schlüsselbegriffen.
  Aber du schiebst in @neue_liste mit push (@neue_liste,"$wortliste{$wort}||$wort"); wieder alles neu rein.
  
  Vielleicht meintest du das.
  Nur mein Vorschlag (habs nicht getestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  foreach(@$ergebnisse) { $beschr1 = $_->{beschr1}; $id = $_->{id}; ## Wörter in Array schreiben, zählen und nach Vorkommen sortieren push @liste, split /[^a-zA-ZäöüÄÖÜß-]/, $beschr1; foreach $wort (@liste) { $wortliste{$wort}++; } } foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); } my @sortierte_liste = sort { $b <=> $a } @neue_liste; print "<br>".@sortierte_liste;
  
  Editiert von GwenDragon: Hinweis ergänzt
  Last edited: 2018-02-07 14:57:42 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Clubcola
    
    2018-02-06 21:14
    User since
    2015-12-23
    4 Artikel
    BenutzerIn
    
    Danke dir. Hattest du etwas geändert? Dein Vorschlag entspricht meiner Formulierung
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    oreach $wort (@liste) { $wortliste{$wort}++; } foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); }
    - +2 replies
    - GwenDragon
      
      2018-02-07 14:56
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Was du damit aussagen willst, weiß ich nicht.
      Ersterer Code ist nur als Hinweis von mir auf was ich mich bezog.
      Zweites ist mein Vorschlag an doch gewesen. Das sieht aber nun nicht so aus wie das Original.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Clubcola
        
        2018-02-07 17:11
        
        User since
        2015-12-23
        4 Artikel
        BenutzerIn
        
        Entschuldige bitte. Ich hab es gerade gesehen, du hattest die erste foreach Schleife eher geschlossen. Das erzeugt leider nur arrays mit einem Wert.
        
        Das was in der übergeordneten foreach abgearbeitet wird, müsste auch so bleiben. Er zählt ja richtig und gibt mir auch die Wörter aus inkl. Vorkommen. Nur eben mit dem Inhalt des vorhergehenden Durchlaufs.
- +2 replies
- Linuxer
  
  2018-02-07 00:27
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Wenn möglich, vermeide globale Variablen. Beschränke Ihre Gültigkeit auf das notwendigste.
  
  Wie genau hast Du das Leeren der Variablen probiert? Welche hast Du geleert?
  Ich muss gestehen, so richtig klar wird mir Dein Problem anhand Deiner Beschreibung nicht.
  
  @liste soll sich ja laut Deinem Code mit jedem Durchlauf erhöhen.
  Das gleiche gilt für @neue_liste, in die auch in jedem neuen Durchlauf nur hinzugefügt wird.
  
  Möglicherweise möchtest Du die @neue_liste erst erstellen, nachdem die Schleife über die @$ergebnisse gelaufen ist? Und danach dann die sortierte Liste erstellen und ausgeben?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  # ungetestet foreach(@$ergebnisse) { $beschr1 = $_->{beschr1}; $id = $_->{id}; ## Wörter in Array schreiben, zählen und nach Vorkommen sortieren push @liste, split /[^a-zA-ZäöüÄÖÜß-]/, $beschr1; foreach $wort (@liste) { $wortliste{$wort}++; } } # Nachdem alle Wörter ermittelt wurden foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); } my @sortierte_liste = sort { $b <=> $a } @neue_liste; print "<br>".@sortierte_liste;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Clubcola
    
    2018-02-07 08:33
    User since
    2015-12-23
    4 Artikel
    BenutzerIn
    
    Geleert habe ich $word, $wortliste und die Arrays um herauszufinden an welcher Stelle der Fehler liegt. Die Stelle
    
    Code (perl): (dl )
    
    1 2 3 4
    
    # Nachdem alle Wörter ermittelt wurden foreach $wort (sort keys %wortliste) { push (@neue_liste,"$wortliste{$wort}||$wort"); }
    
    ist der Knackpunkt. @neue_liste füllt sich trotz Leerung mit dem Inhalt der vorhergehenden Schleifendurchläufe. Ein Starten des Scriptes gibt mir die Anzahl der Arrayfelder zurück:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    Anzahl der Arrayfelder 273 526 712 929 1148 1284 1406 1491 1586
    
    Ich möchte aber für jeden Durchlauf das Array neu belegen und nicht die Werte des letzten Durchlaufes haben.
    Last edited: 2018-02-07 08:35:54 +0100 (CET)

View all threads created 2018-02-06 18:01.