linux-l: zwei Fragen zu Perl-DBM

[Steffen Dettmer]

* JSC wrote on Sat, Oct 20, 2001 at 18:15 +0200:
> * Olaf Radicke <olaf_rad at gmx.de> [20.10.2001 16:26]:
> > 
> > #######################################################################
> > #! /usr /bin/perl -w
>   #!/usr/bin/perl -w
> > 
> > use AnyDBM_File;
use strict;
> > #use strict;
> > #my %BLISS-DB;
#kannst Du Dich nicht entscheiden, wie das Ding heißt :)
my %BLISSDB;
> > #my $datei;
my $datei;
> > #my $wort;
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!?"
> print "Oh, schon Feieraben!?";
> dbmclose(%BLISSDB);
> 
> > #######################################################################
> > 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"; 
> > }
> > 
> dbmclose(%BLISSDB);
> 
> meine doku meint, du solltest tie() und untie() nutzen.

Sollte man sich wirklich mal angucken :)

> # aha, dateiname anders ;-)

Kann sich wirklich nicht entscheiden.

oki,

Steffen

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.
-------------- nächster Teil --------------
Ein Dateianhang mit Binärdaten wurde abgetrennt...
Dateiname   : x.pl
Dateityp    : application/x-perl
Dateigröße  : 554 bytes
Beschreibung: nicht verfügbar
URL         : <https://mlists.in-berlin.de/pipermail/linux-l-mlists.in-berlin.de/attachments/20011021/db2f3733/attachment.bin>
-------------- nächster Teil --------------
Ein Dateianhang mit Binärdaten wurde abgetrennt...
Dateiname   : x2.pl
Dateityp    : application/x-perl
Dateigröße  : 239 bytes
Beschreibung: nicht verfügbar
URL         : <https://mlists.in-berlin.de/pipermail/linux-l-mlists.in-berlin.de/attachments/20011021/db2f3733/attachment-0001.bin>