linux-l: Mehrfache Rout-Rekursion iher Nachricht. 4
ncb-spool at omega.berlinet.de
ncb-spool at omega.berlinet.de
Mi Okt 24 15:31:49 CEST 2001
-------------------------------------------------------------------------------
----- NCBMail Spool --------- Meldung über Routpfad-Rekursion -----------------
-------------------------------------------------------------------------------
Bei der Zustellung ihrer Nachricht sind 4 Rekursionen aufgetreten.
Der Systembetreiber wird versuchen, Ihre Mail, soweit es möglich ist,
weiterzuleiten.
---[ Nachrichteninfo ]---------------------------------------------------------
PM-Empfaenger : ROBOTNIK at omega.berlinet.de
Brett-Empfaenger : None or no valid area-EMP
Absender : JSC at jsc.tfh-berlin.de (JSC)
Betreff : Re: linux-l: zwei Fragen zu Perl-DBM
Routweg : omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!genius.berlinet.de!mxnx.berlinetz.de!abraxas.berlinet.de!abraxas.berlinet.de!gnu.in-berlin.de!gnu.in-berlin.de!gnu.in-berlin.de
Message-ID : 20011020181520.A23242 at jsc.tfh-berlin.de
Erstellungsdatum : 20.10.2001 16:15:20
Länge : 1791
---[ Orginalnachricht ]--------------------------------------------------------
EMP: ROBOTNIK at omega.berlinet.de
U-Received: from mxnx.berlinetz.de(really [62.8.206.6]) by genius.berlinet.de via smtpd with esmtpid <m15vzC1-000RW0C at genius.berlinet.de>for <ROBOTNIK at omega.berlinet.de>; Tue, 23 Oct 2001 12:53:57 +0200 (CEST)(Smail-3.2 1996-Jul-4 #1)
U-Received: from abraxas.berlinet.de(really [62.8.206.8]) by mxnx.berlinetz.de via smtpd with smtp id <m15vz8U-0019ORC at mxnx.berlinetz.de> for <ROBOTNIK at omega.berlinet.de>; Tue, 23 Oct 2001 12:50:18 +0200 (CEST) (Smail-3.2.0.111 2000-Feb-17 #3)
U-Received: from localhost (localhost [127.0.0.1]) by abraxas.berlinet.de (Postfix on SuSE Linux 7.2 (i386)) with ESMTP id 95286E5A0F for <ROBOTNIK at omega.berlinet.de>; Tue, 23 Oct 2001 11:55:53 +0200 (MEST)
U-Received: from gnu.in-berlin.de (gnu.in-berlin.de [192.109.42.4]) by abraxas.berlinet.de (Postfix on SuSE Linux 7.2 (i386)) with ESMTP id 06741E5AB6 for <ROBOTNIK at omega.berlinet.de>; Tue, 23 Oct 2001 11:23:58 +0200 (MEST)
U-Received: from localhost (daemon at localhost) by gnu.in-berlin.de (8.10.1/8.10.1) with SMTP id f9KGTga11239; Sat, 20 Oct 2001 18:29:42 +0200 (CEST) (envelope-from owner-linux-l at mlists.in-berlin.de)
U-X-Envelope-From: owner-linux-l at mlists.in-berlin.de
U-Received: by gnu.in-berlin.de (bulk_mailer v1.11); Sat, 20 Oct 2001 18:29:13 +0200
U-Received: (from majordom at localhost) by gnu.in-berlin.de (8.10.1/8.10.1) id f9KGQAc11014 for mlists-in-berlin-de-outgoing-linux-l; Sat, 20 Oct 2001 18:26:10 +0200 (CEST) (envelope-from owner-linux-l at mlists.in-berlin.de)
U-Date: Sat, 20 Oct 2001 18:15:20 +0200
EDA: 20011020161520W+2:00
ABS: JSC at jsc.tfh-berlin.de (JSC)
U-To: linux-l at mlists.in-berlin.de
BET: Re: linux-l: zwei Fragen zu Perl-DBM
MID: 20011020181520.A23242 at jsc.tfh-berlin.de
BEZ: 20011020150633.A505 at kiste
BEZ: 20011020163401.A839 at kiste
CHARSET: ISO1
U-Content-Disposition: inline
BEZ: 20011020163401.A839 at kiste
ANTWORT-AN: linux-l at mlists.in-berlin.de
U-X-Virus-Scanned: by Abraxas BerliNet
ROT: tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!omega.berlinet.de!tbx.berlinet.de!genius.berlinet.de!mxnx.berlinetz.de!abraxas.berlinet.de!abraxas.berlinet.de!gnu.in-berlin.de!gnu.in-berlin.de!gnu.in-berlin.de
GATE: RFC1036/822 UU tbx.berlinet.de [DUUCP BETA vom 25.09.2000]
LEN: 1791
VIA: 20011023133117S+1 at omega.berlinet.de
VIA: 20011023173129S+1 at omega.berlinet.de
VIA: 20011023202131S+1 at omega.berlinet.de
VIA: 20011023220131S+1 at omega.berlinet.de
VIA: 20011024074633S+1 at omega.berlinet.de
* 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;
> #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!?"
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.
$ ./in
Geben sie bitte den Dateinammen des Bliss-Symbols ein
abc
Geben sie bitte den Namen des Bliss-Symbols ein
def
Geben sie bitte den Dateinammen des Bliss-Symbols ein
ende
Oh, schon Feieraben!?
$ ./out
$ ls -a1
.
..
blis-db.db
bliss-db.db
in
out
# aha, dateiname anders ;-)
$ mv blis-db.db bliss-db.db
$ ./out
abc hat den Wert def
alternativ koenntest du auch in beiden scripten denselben dateinamen verwenden.
ansonsten sieht's gut aus.
bye
Jens
Mehr Informationen über die Mailingliste linux-l