linux-l: zwei Fragen zu Perl-DBM

Olaf Radicke olaf_rad at gmx.de
Sa Okt 20 18:34:01 CEST 2001


Ich bin jetzt einen Schritt weitet (glaube ich). Ich habe das jetzt
umgeschrieben. Es kommen jetzt keine Fehlermeldungen (bis auf strict).
Ich habe mir die Dateien angesehen, die DBM angelegt hat *.pag und *.dir.
Da steht aber eigentlich nur Kaudawelsch drinne. Habe dann versucht
ein Perl-Skript zuschreiben, um die Daten test weise ab zu prüfen.
Klappt aber nicht. Ich weiß jetzt nicht welches (oder beide) Programme
misst sind.
Also zu nächst das veränderte Eingabeprogramm:

#######################################################################
#! /usr /bin/perl -w

use AnyDBM_File;
#use strict;
#my %BLISS-DB;
#my $datei;
#my $wort;
#$bloedsinn = 0;


dbmopen (%BLISSDB, "./blis-db", 0644) || die "Kann DBM ./bliss-db nicht öffnen";

SCHLEIFE: while (){
    print "Geben sie bitte den Dateinammen des Bliss-Symbols ein\n";
    $datei = <STDIN>; 
    chomp($datei);
        last SCHLEIFE if ($datei eq "ende");

    print "Geben sie bitte den Namen des Bliss-Symbols ein\n";
    $wort = <STDIN>;
    chomp ($wort);
    $BLISSDB{"$datei"} = "$wort" ;
}
print "Oh, schon Feieraben!?"

#######################################################################
Und hier das Ausgabeprogramm:
#######################################################################

#! /usr/bin/perl -w

dbmopen(%BLISSDB, "./bliss-db", 0644);

foreach $schluessel (keys %BLISSDB) { 
#@ausgabe = keys(%BLISSDB);
print "$schluessel hat den Wert $BLISSDB{$schluessel}\n"; 
}

########################################################################
ende

Danke Olaf




















Mehr Informationen über die Mailingliste linux-l