RegExp evl. falsch.

[hehejo]

Hallo, ich hab ein kleines Programm geschrieben, welches aus einer Datei alle Wörter rauszieht und mitzählt wie oft ein Wort vorkommt.
Dazu nehme ich mit RegExp die Satzzeichen weg usw..
Aber so ganz will es nicht klappen..
Einige Worte werden nicht aufgenommen, aber gezählt.
Das Programm und eine Testdatei hab ich angehängt. Hier findet er z.B. das Wort toll nicht, obwohl es mitgezählt wird.

Geben Sie eine Datei mit Text an: test.txt
Geben Sie eine Ausgabedatei an: out.txt
Bitte warten!
                ANALYSEERGEBNIS
Wort                    Anzahl          Prozent
-----------------------------------------------------------
gg                        1             16.66 %
hallo                     1             16.66 %
Insgesamt 6 Woerter[/quote]
Bestimmt ist es nur ein kleiner Fehler... *hoff*

Wie gehe ich vor:
Datei einlesen
Einzelne Zeilen mit RegExp bearbeiten
Zeile in Wörter aufsplitten
Ist Wort schon im Hash?
  ja: Dann Counter hochzählen
  nein: Einfügen und Counter auf 1 setzen
Ausgabe

Vll. kann mir ja jemand helfen.

//ADMIN EDIT
Sorry, war schneller mit dem löschen :)

 

[Yuuhi]

zuerst benutzt du mal

use warnings;
use strict;

und korrigierst dein script soweit, dass es damit laeuft.
Schon allein nur mit den Warnungen findet er einiges, was an deinem Skript nicht stimmt...

 

[Steve]

die runden und die eckigen Klammern müssen escaped werden. So wie auch noch einige andere Zeichen!

if(isWordinHash($word) == 1) {
                $count = $auflistung{$word};
                $count++;
                $auflistung{$word} = $count;
            }
            else {
                $auflistung{$word} = 1;
            }

Diesen ganzen Teil kann man auch als

  $auflistung{$word}++

schreiben! So kannste dir die extrafuntion etc. sparen.


steve

 

[hehejo]

Auf dem richtigem Weg

use warnings;
use strict;

Jawohl werde ich machen. Bin mal auf die Fehlermeldungen gespannt.

was an deinem Skript nicht stimmt...

Ich hoff es ist nicht zu schlimm...

$auflistung{$word}++

Danke für den Tipp. Aber da hätte ich eigentlich selbst draufkommen müssen.
*schäm*

 

[hehejo]

use strict und use warning

So, nun hab ich beides eingebaut und nach etwas Nachdenken und googlen mein Programm wieder zum Laufen gebracht.

Wenn ich aber ins Format TOP schreiben will, wirft er mir diese Warnungen:

Use of uninitialized value in open at E:\myPerl\Analyst\analyst.pl line 93.
write() on unopened filehandle TOP at E:\myPerl\Analyst\analyst.pl line 94.

Der Code dazu:
open TOP;
write TOP;

Dann bekomme ich aber immer noch nicht alle Wörter in mein Hash rein.
Ist das gleiche Problem wie vor dem Einsatz von "strict" und "warnings".

die runden und die eckigen Klammern müssen escaped werden. So wie auch noch einige andere Zeichen!

Welche denn? Was bedeuten denn () und {} in RegExp?


"$auflistung{$word}++"ist einfach klasse.
Wie kann ich ein Hash auf NULL setzten, es leeren?

 

[ExRevel]

Wenn du ein Hash leeren möchtest gibt es mehrere Möglichkeiten, die die am deutlichste ist siehst du hier, man nutzt die keys-funktion und eine Schleife.

foreach $key (keys %HASH) {
    delete $HASH{$key};
}

Um es ganz einfach zu machen kannst du das Hash aber auch einfach neu definieren oder es "entdefinieren"

%HASH = ();
# oder ...
undef %HASH;

Ich kann dir http://www.perldoc.com nur wärmstens ans Herz legen, dort findest du gute man-pages im html format samt Suchfunktion.

ciao Exi

 

[hehejo]

Danke.

"undef %HASH" sagt mir zu. Ist schnell getippt und ist IMHO auch selbsterklärend.

perdoc.com -> da schau ich hin!

 

[ExRevel]

Jo, undef ist auch schneller als die For-Schleife, aber ich finde es immer gut auch Beispiele zu geben die so eine Struktur der Handlung durchblicken lassen, die man dort gerade begeht.

Und Perldoc hat mich oft vor dem Selbstmord aufgrund eines Perlproblems gerettet in den letzten 3 Jahren.

ciao Exi

 

[hehejo]

Das hier verstehe ich nicht:

@buchstaben =split(/ */, 'hi there');[CODE]
Wie funktioniert "/ */"?

 

[ExRevel]

Wie gesagt, hier findet man alles:

http://www.perldoc.com/perl5.8.4/pod/perlrequick.html#Matching-repetitions

 

[hehejo]

Kannst du mir bitte dennoch wegen dem geschlossenem Top helfen?

 

[ExRevel]

Ich kann erst heute gegen abend schaun, da ich noch auf der Arbeit bin.

 

[Yuuhi]

Ich habe es mal entsprechend geaendert, damit es ohne Warnungen und scheinbar sogar richtig laeuft.
Angehaengt ist ein diff zum vorherigen Programm. Um zu verstehen was $~ macht solltest du die Dokumentation zu write lesen (perldoc perlfunc).

 

[hehejo]

Danke, ich bin grad am Anschauen und Testen!