Rocksolid Light

groups  faq  privacy  How to post  login

Message-ID:  

Do not sleep in a eucalyptus tree tonight.


rocksolid / de.comp.lang.perl / print to file

SubjectAuthor
* print to fileRolf Buenning
`* Re: print to fileHeiko Schlichting
 `* Re: print to fileRolf Buenning
  `* Re: print to fileChristian Garbs
   `* Re: print to fileRolf Buenning
    `* Re: print to fileUlli Horlacher
     `* Re: print to fileRolf Buenning
      `- Re: print to fileUlli Horlacher

1
Subject: print to file
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Wed, 21 Feb 2024 13:04 UTC
Path: i2pn2.org!i2pn.org!news.samoylyk.net!newsfeed.xs3.de!weretis.net!feeder8.news.weretis.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: r.buenn...@gmx.de (Rolf Buenning)
Newsgroups: de.comp.lang.perl
Subject: print to file
Date: 21 Feb 2024 13:04:09 GMT
Lines: 14
Message-ID: <l3mam9Ft555U1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net MLobWpNv4FwLFp61BRpFuQkAKYHzTP77Cd8rXY4m3JIl6sZnt2
Cancel-Lock: sha1:hPvsI57nkQ3ZwTEt0ENjoBlvIBs= sha256:Fot7h6Va+r+7rmQU59dtdBvm8uDO3mRFOeF7TU7MgpM=
User-Agent: slrn/1.0.3 (Linux)
View all headers

Schönen Tag.

Ich zermartere mir schon zwei Tage meinen Kopf.
Ich schreibe Daten in ein File, einmal!

open (FH, '>>', $Filename);
print FH $daten;

Aber es sind immer 2X $daten im File.
Was könnte die Ursache sein?

Mit Dank Hilfe erwünscht.

Rolf

Subject: Re: print to file
From: Heiko Schlichting
Newsgroups: de.comp.lang.perl
Organization: Freie Universitaet Berlin
Date: Wed, 21 Feb 2024 13:14 UTC
References: 1
Path: i2pn2.org!rocksolid2!news.neodome.net!fu-berlin.de!uni-berlin.de!not-for-mail
From: hei...@cis.fu-berlin.de (Heiko Schlichting)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: 21 Feb 2024 13:14:00 GMT
Organization: Freie Universitaet Berlin
Lines: 24
Message-ID: <l3mb8oFt9erU1@mid.uni-berlin.de>
References: <l3mam9Ft555U1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
X-Trace: news.uni-berlin.de JVC5/Ppq/V1g5uaOtVJKZwMT2xvv7HmaZsPhht+AGNhna7PjrYcJGEAXPtgQkly/W2pMU=
Cancel-Lock: sha1:WkopACFCyJaCaXII/zgzXXnjB6Y= sha1:wWjG4+Y8uV9UcpInxU8jceIODC8= sha256:v7curbGuQMVwpWrgB1pYceqz6BJbp/Nu55x03MJKs8w=
User-Agent: slrn/1.0.3 (Linux)
View all headers

Rolf Buenning <r.buenning@gmx.de> wrote:
> Ich zermartere mir schon zwei Tage meinen Kopf.
> Ich schreibe Daten in ein File, einmal!
>
> open (FH, '>>', $Filename);
> print FH $daten;
>
> Aber es sind immer 2X $daten im File.
> Was könnte die Ursache sein?

Wenn die Datei schon existiert, hängst Du mit '>>' Daten an. Willst Du die
Datei erzeugen/überschreiben, nimmst Du '>'.

Ansonsten würde man (heutzutage) für den Filehandle eine normale Variable
nehmen und auch prüfen, ob open erfolgreich war. Also sowas:

open(my $fh, '>>', $filename) or die "open fehlgeschlagen: $!";
print $fh $daten;
close $fh;

Bzw. '>' statt '>>', wenn die Daten nicht angehängt werden sollen, sondern
ggf. bestehende Inhalte überschrieben.

Heiko

Subject: Re: print to file
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Wed, 21 Feb 2024 13:50 UTC
References: 1 2
Path: i2pn2.org!rocksolid2!news.neodome.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: r.buenn...@gmx.de (Rolf Buenning)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: 21 Feb 2024 13:50:18 GMT
Lines: 39
Message-ID: <l3mdcqFt7hvU1@mid.individual.net>
References: <l3mam9Ft555U1@mid.individual.net>
<l3mb8oFt9erU1@mid.uni-berlin.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net jOV9LhNsFcWNVKcs+BISdgbz4zseN6Bb2tHi+qGQzBT3ujuFWT
Cancel-Lock: sha1:h63BI9BbAn1gyzsjt8ZRydnjG6w= sha256:n7fzA6uPubIkiSGqtNN9rRhH+e6T7+m9Et+HONKZ7q8=
User-Agent: slrn/1.0.3 (Linux)
View all headers

Heiko Schlichting <heiko@cis.fu-berlin.de> schrieb:
> Rolf Buenning <r.buenning@gmx.de> wrote:

>> open (FH, '>>', $Filename);
>> print FH $daten;
>>
>> Aber es sind immer 2X $daten im File.
>> Was könnte die Ursache sein?
>
> Wenn die Datei schon existiert, hängst Du mit '>>' Daten an. Willst Du die
> Datei erzeugen/überschreiben, nimmst Du '>'.

Ja, das ist klar.

> Ansonsten würde man (heutzutage) für den Filehandle eine normale Variable
> nehmen und auch prüfen, ob open erfolgreich war. Also sowas:
>
> open(my $fh, '>>', $filename) or die "open fehlgeschlagen: $!";
> print $fh $daten;
> close $fh;

Habe ich auch schon probiert, und ich prüfe auch den Erfolg.

> Bzw. '>' statt '>>', wenn die Daten nicht angehängt werden sollen, sondern
> ggf. bestehende Inhalte überschrieben.
>
Sie sollen angehängt werden.

Zum Testen lösche ich immer das file und beginne mit einem
jungfräulichem File.

Trotzdem sind nach einem Durchgang, einmal Schreiben, 2mal $daten
d'rin.

Ich lasse mir vor dem Schreiben auch $daten anzeigen, sind OK:
Merkwürdig ist, dass nach print $fh $daten
$daten auch auf dem Bildschirm ausgegeben werden.

Rolf

Subject: Re: print to file
From: Christian Garbs
Newsgroups: de.comp.lang.perl
Organization: ya mine owne server
Date: Wed, 21 Feb 2024 16:46 UTC
References: 1 2 3
Path: i2pn2.org!i2pn.org!news.swapon.de!news.cgarbs.de!yggdrasil.dn.cgarbs.de!.POSTED.localhost!not-for-mail
From: mit...@cgarbs.de (Christian Garbs)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: Wed, 21 Feb 2024 16:46:48 -0000 (UTC)
Organization: ya mine owne server
Message-ID: <ur59do$dk23$1@yggdrasil.dn.cgarbs.de>
References: <l3mam9Ft555U1@mid.individual.net> <l3mb8oFt9erU1@mid.uni-berlin.de> <l3mdcqFt7hvU1@mid.individual.net>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 21 Feb 2024 16:46:48 -0000 (UTC)
Injection-Info: yggdrasil.dn.cgarbs.de; posting-host="localhost:127.0.0.1";
logging-data="446531"; mail-complaints-to="mitch@cgarbs.de"
User-Agent: tin/2.6.2-20221225 ("Pittyvaich") (Linux/6.1.0-18-amd64 (x86_64))
Cancel-Lock: sha1:WeDO59jkn2N6G+JHFEX1WskVuK8=
View all headers

Mahlzeit!

Rolf Buenning <r.buenning@gmx.de> wrote:

> Zum Testen lösche ich immer das file und beginne mit einem
> jungfräulichem File.
>
> Trotzdem sind nach einem Durchgang, einmal Schreiben, 2mal $daten
> d'rin.
>
> Ich lasse mir vor dem Schreiben auch $daten anzeigen, sind OK:
> Merkwürdig ist, dass nach print $fh $daten
> $daten auch auf dem Bildschirm ausgegeben werden.

Dann zeig bitte mal das _echte_ Programm. Der von Dir extrahierte
Ausschnitt scheint den Fehler nicht zu enthalten, das macht die Suche
schwierig ;-)

Gruß
Christian
--
.....Christian.Garbs....................................https://www.cgarbs.de
Star Trek - The Next Generation:
See Jean-Luc Picard baldly go where no man has gone before.

Subject: Re: print to file
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Thu, 22 Feb 2024 10:32 UTC
References: 1 2 3 4
Path: i2pn2.org!i2pn.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: r.buenn...@gmx.de (Rolf Buenning)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: 22 Feb 2024 10:32:49 GMT
Lines: 43
Message-ID: <l3om6hFbrciU1@mid.individual.net>
References: <l3mam9Ft555U1@mid.individual.net>
<l3mb8oFt9erU1@mid.uni-berlin.de> <l3mdcqFt7hvU1@mid.individual.net>
<ur59do$dk23$1@yggdrasil.dn.cgarbs.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net 9NChZv1TISjINSMitBX1Xg5e8QzAoeMn/6Ow/IVOh48hflRzsK
Cancel-Lock: sha1:0KHPmhjaS5ecpzlweGzj7n+7su0= sha256:Oz4MHzORK0143krpBLSGIR3dSPkljRthwS32wfflTlA=
User-Agent: slrn/1.0.3 (Linux)
View all headers

Christian Garbs <mitch@cgarbs.de> schrieb:
>> Ich lasse mir vor dem Schreiben auch $daten anzeigen, sind OK:
>> Merkwürdig ist, dass nach print $fh $daten
>> $daten auch auf dem Bildschirm ausgegeben werden.
>
> Dann zeig bitte mal das _echte_ Programm. Der von Dir extrahierte
> Ausschnitt scheint den Fehler nicht zu enthalten, das macht die Suche
> schwierig ;-)

OK.

#v+
my sub t_new
{ # hier jetzt Eingabe der Daten
do { system 'clear';
print "Titel: ";
chomp( $inp = <STDIN> );
$tdaten .= $inp .= "|";
do { print "Datum (TT.MM.JJJJ): ";
chomp($inp = <STDIN>);
&normalize_date($inp);
# liefert Tag, Monat und Jahr getrennt zurück
if (! check_date( $jahr, $monat, $tag))
{ print "Das Datum \"$tag.$monat.$jahr\" ist nicht gültig!\nErneute Eingabe " }
}
until ( check_date($jahr, $monat, $tag) );
$tdaten .= $inp .= "|";

print "Erinnerung: ";
chomp($inp = <STDIN>);
$tdaten .= $tdaten .= $inp .= "\n";

print "Eingaben korrekt?";
}
until ( &yes );

open (my $trm, '>>', $TfileN) or die "$0: Fehler beim Öffnen von $TfileN\n";
print "TDaten vor Schreiben: $tdaten\n";
print $trm $tdaten;
close $trm or die "$0:$!";
}
#v

Subject: Re: print to file
From: Ulli Horlacher
Newsgroups: de.comp.lang.perl
Organization: University of Stuttgart, FRG
Date: Thu, 22 Feb 2024 10:46 UTC
References: 1 2 3 4 5
Path: i2pn2.org!i2pn.org!news.chmurka.net!news.szaf.org!news.datentrampelpfad.de!thinkmo.de!news.uni-stuttgart.de!.POSTED!not-for-mail
From: frams...@rus.uni-stuttgart.de (Ulli Horlacher)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: Thu, 22 Feb 2024 10:46:36 +0000 (UTC)
Organization: University of Stuttgart, FRG
Lines: 44
Message-ID: <ur78mc$s7b$1@news2.informatik.uni-stuttgart.de>
References: <l3mam9Ft555U1@mid.individual.net> <l3mb8oFt9erU1@mid.uni-berlin.de> <l3mdcqFt7hvU1@mid.individual.net> <ur59do$dk23$1@yggdrasil.dn.cgarbs.de> <l3om6hFbrciU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
X-Trace: news2.informatik.uni-stuttgart.de 1708598796 28907 129.69.1.129 (22 Feb 2024 10:46:36 GMT)
X-Complaints-To: rusnews@informatik.uni-stuttgart.de
NNTP-Posting-Date: Thu, 22 Feb 2024 10:46:36 +0000 (UTC)
User-Agent: tin/2.6.3-20231224 ("Banff") (Linux/5.15.0-94-generic (x86_64))
View all headers

Rolf Buenning <r.buenning@gmx.de> wrote:
> Christian Garbs <mitch@cgarbs.de> schrieb:
>>> Ich lasse mir vor dem Schreiben auch $daten anzeigen, sind OK:
>>> Merkwürdig ist, dass nach print $fh $daten
>>> $daten auch auf dem Bildschirm ausgegeben werden.

Das macht dein Code eben NICHT!

>> Dann zeig bitte mal das _echte_ Programm. Der von Dir extrahierte
>> Ausschnitt scheint den Fehler nicht zu enthalten, das macht die Suche
>> schwierig ;-)
>
> OK.
>
> #v+
> my sub t_new
> { # hier jetzt Eingabe der Daten
> do { system 'clear';
> print "Titel: ";
> chomp( $inp = <STDIN> );
> $tdaten .= $inp .= "|";

Hier haengst du an $tdaten den Inhalt von $inp an. Absicht?

> $tdaten .= $tdaten .= $inp .= "\n";

Hier haengst du an $tdaten den Inhalt von $inp an UND verdoppelest es dann
auch noch. Absicht?

> open (my $trm, '>>', $TfileN) or die "$0: Fehler beim Öffnen von $TfileN\n";
> print "TDaten vor Schreiben: $tdaten\n";
> print $trm $tdaten;
> close $trm or die "$0:$!";

Hier fehlt der Kontroll-Output!

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/

Subject: Re: print to file
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Thu, 22 Feb 2024 11:41 UTC
References: 1 2 3 4 5 6
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!feeder8.news.weretis.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: r.buenn...@gmx.de (Rolf Buenning)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: 22 Feb 2024 11:41:58 GMT
Lines: 38
Message-ID: <l3oq86Fcu37U1@mid.individual.net>
References: <l3mam9Ft555U1@mid.individual.net>
<l3mb8oFt9erU1@mid.uni-berlin.de> <l3mdcqFt7hvU1@mid.individual.net>
<ur59do$dk23$1@yggdrasil.dn.cgarbs.de> <l3om6hFbrciU1@mid.individual.net>
<ur78mc$s7b$1@news2.informatik.uni-stuttgart.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net SWAUln1JJiAove3qgmiUyg9xKAMyof/GtCzRU761PtHZa8gM4s
Cancel-Lock: sha1:WXMIxtJhAM/bCOYgIWZ3Yjn0LCQ= sha256:w8+YykMDkDjfBn2RkYbXKVjp2YE7DthNrVX4TbsvNTY=
User-Agent: slrn/1.0.3 (Linux)
View all headers

Ulli Horlacher <framstag@rus.uni-stuttgart.de> schrieb:
> Rolf Buenning <r.buenning@gmx.de> wrote:
>> Christian Garbs <mitch@cgarbs.de> schrieb:
>>>> Ich lasse mir vor dem Schreiben auch $daten anzeigen, sind OK:
>>>> Merkwürdig ist, dass nach print $fh $daten
>>>> $daten auch auf dem Bildschirm ausgegeben werden.
>
> Das macht dein Code eben NICHT!
>
>
>>> Dann zeig bitte mal das _echte_ Programm. Der von Dir extrahierte
>>> Ausschnitt scheint den Fehler nicht zu enthalten, das macht die Suche
>>> schwierig ;-)
>>
>> OK.
>>
>> #v+
>> my sub t_new
>> { # hier jetzt Eingabe der Daten
>> do { system 'clear';
>> print "Titel: ";
>> chomp( $inp = <STDIN> );
>> $tdaten .= $inp .= "|";
>
> Hier haengst du an $tdaten den Inhalt von $inp an. Absicht?
>
>> $tdaten .= $tdaten .= $inp .= "\n";
>
> Hier haengst du an $tdaten den Inhalt von $inp an UND verdoppelest es dann
> auch noch. Absicht?

Nee, natürlich nicht!
Und daran lag es auch.
Es wurde nicht zweimal geschrieben, sondern während/nach Eingabe
verdoppelt.
Ich hatte auch schon Logik-Fehelr vermutet.

Danke Ulli.

Subject: Re: print to file
From: Ulli Horlacher
Newsgroups: de.comp.lang.perl
Organization: University of Stuttgart, FRG
Date: Thu, 22 Feb 2024 12:04 UTC
References: 1 2 3 4 5 6 7
Path: i2pn2.org!i2pn.org!news.hispagatos.org!news.nntp4.net!speedkom.net!news.uni-stuttgart.de!.POSTED!not-for-mail
From: frams...@rus.uni-stuttgart.de (Ulli Horlacher)
Newsgroups: de.comp.lang.perl
Subject: Re: print to file
Date: Thu, 22 Feb 2024 12:04:00 +0000 (UTC)
Organization: University of Stuttgart, FRG
Lines: 24
Message-ID: <ur7d7g$tcq$1@news2.informatik.uni-stuttgart.de>
References: <l3mam9Ft555U1@mid.individual.net> <l3mb8oFt9erU1@mid.uni-berlin.de> <l3mdcqFt7hvU1@mid.individual.net> <ur59do$dk23$1@yggdrasil.dn.cgarbs.de> <l3om6hFbrciU1@mid.individual.net> <ur78mc$s7b$1@news2.informatik.uni-stuttgart.de> <l3oq86Fcu37U1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-15
Content-Transfer-Encoding: 8bit
X-Trace: news2.informatik.uni-stuttgart.de 1708603440 30106 129.69.1.129 (22 Feb 2024 12:04:00 GMT)
X-Complaints-To: rusnews@informatik.uni-stuttgart.de
NNTP-Posting-Date: Thu, 22 Feb 2024 12:04:00 +0000 (UTC)
User-Agent: tin/2.6.3-20231224 ("Banff") (Linux/5.15.0-94-generic (x86_64))
View all headers

Rolf Buenning <r.buenning@gmx.de> wrote:

>> Hier haengst du an $tdaten den Inhalt von $inp an. Absicht?
>>
>>> $tdaten .= $tdaten .= $inp .= "\n";
>>
>> Hier haengst du an $tdaten den Inhalt von $inp an UND verdoppelest es dann
>> auch noch. Absicht?
>
> Nee, natürlich nicht!
> Und daran lag es auch.
> Es wurde nicht zweimal geschrieben, sondern während/nach Eingabe
> verdoppelt.
> Ich hatte auch schon Logik-Fehelr vermutet.

Ein einfaches debug print vor dem Schreiben haette dir das aufgezeigt.

--
Ullrich Horlacher Server und Virtualisierung
Rechenzentrum TIK
Universitaet Stuttgart E-Mail: horlacher@tik.uni-stuttgart.de
Allmandring 30a Tel: ++49-711-68565868
70569 Stuttgart (Germany) WWW: https://www.tik.uni-stuttgart.de/


rocksolid / de.comp.lang.perl / print to file

1
server_pubkey.txt

rocksolid light 0.9.12
clearnet tor