Hallo ihr Perl-Experten,

ich soll aus einem Textkorpus Worttyp-Häufigkeiten in einem Hash speichern.
Also "Worttyp => Häufigkeit". Dann wird später eine Benutzereingabe von der Konsole eingelesen und mit den Daten aus dem Hash verglichen.

Wenn man das Programm neu startet, muss der Hash jedes Mal neu gebildet werden. Bei nem großen Korpus ist das sehr lästig.

Deshalb habe ich mir überlegt, ob ich den Inhalt des Hashs nicht einfach in eine Textdatei schreiben könnte und die dann beim nächsten Programmstart aufrufen könnte.

Daher soll das Programm nur dann den Hash noch mal bilden, wenn die Textdatei nicht existiert. Wenn sie existiert, dann soll das Programm stattdessen die Daten aus dieser Textdatei nehmen.

Wie kann ich das implementieren? Mit ner if-Bedingung und "exists" hab ich es schon versucht, aber sonst fällt mir nix ein. Habt ihr eine Idee?

Vielen herzlichen Dank.


MfG,
Dingels

file test operatoren heissten in perl -e (exist) -r (read) -w (write) -d (dir) usw.

sollte also sein was du suchst, steht aber alles auch in der perldoc perlop

Dazu gibt es auch ein nettes Modul: Data::Serializer, und in Data::Serializer::Cookbook fidnest du im Abschnitt "Keeping data persistent between executions of a program." das, was du beschrieben hast.

Danke erst einmal.

Wie muss das jetzt genau aussehen? Ich habe mal etwas probiert, aber es funktioniert nicht. Ich möchte testen, ob in demselben Ordner, in dem das Perl-Skript steckt, auch eine bestimmte Textdatei steckt.

Mein Code sieht bisher so aus:




Das funktioniert allerdings nicht. Wie muss das aussehen, damit das funktioniert?

Oha, wie toll ist das denn? Hab die Lösung selbst gefunden. Geht ja ganz simpel. Lichtkinds if-Abfrage genügt ja tatsächlich. Perl sucht dann wohl automatisch im selben Ordner, wo das Skript liegt, richtig?

Das ist ja komfortabel. Dann kann ich mir den ganzen Monster-Code oben ja sparen. Feine Sache. :-)

Danke nochmals an euch beide. :-)

Dingels+2008-11-29 23:17:11--

[...]

Code (perl): (dl )

1
2
3
4
5
6
7

[...]
while (my $dateien = readdir(INPUT)) {
        $dateinamen .= $dateien . ' ';
}
[...]
my @dateinamen_liste = split(" ", $dateinamen);
[...]

[...]

Was soll das denn? Abgesehen davon, dass es schrecklich redundant und ineffizient ist, ist es auch noch fehleranfällig. Niemand zwingt Dich, Daten in einem String zu speichern, wenn Du eigentlich ein Array haben willst. Und wenn Du schon Dateinamen in einem String aneinanderhängst, was eigentlich niemals nötig sein sollte, dann ist das Leerzeichen kein gutes Trennzeichen, da es auch mal in einem Dateinamen vorkommen könnte…

Also besser so:

Quote

Code (perl): (dl )

1
2
3
4
5
6

[...]
foreach my $dateiname (@dateinamen_liste) {
        if (not -e "haeufigkeiten.txt") {
               ...
}
[...]

Hmm, davon, dass man dieselbe Abfrage mehrmals in einer Schleife durchführt, von deren Interationsvariablen sie völlig unabhängig ist, wird das Resultat nicht unbedingt besser. Und Du prüfst natürlich nicht, ob die Datei mit dem Namen haeufigkeiten.txt in dem Verzeichnis vorhanden ist, in dem das Skript liegt, sondern ob sie im aktuellen Arbeitsverzeichnis vorhanden ist.

Die ganzen Iterationen in Deinem Skript erfüllen keinen erkennbaren Zweck!

Um aber auf das eigentliche Problem zurückzukommen: Du solltest erstmal das Verzeichnis bestimmen, in dem Dein Skript wohnt und dann auf die Existenz der Datei prüfen. Da ersteres tatsächlich nicht ganz trivial ist, nimmt man am besten das Standardmodul FindBin dafür her:

Da vllt. noch die Anmerkung für Neulinge: In der Doku zu FindBin steht:

Quote

$Bin - path to bin directory from where script was invoked

und in murphys Beispiel wird das als $FindBin::Bin angesprochen.