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

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

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

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.

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

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/

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.

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/