Hallo Ihr!

Erstmal ein gesundes erfolgreiches 2024!

Ich versuche mich in PERL.
Hat Ulli mir ja auch geraten.

#v+

open(LESEN, "$filename") or die "$!: $filename\n";
while ( <LESEN> )
{
if ( $_ =~ "String" )
{ print "gefunden: $_\n"}
else
{ die "nicht gefunden!\n" }
}
close(LESEN) or die "Fehler $!\n";
}

#v-

Das Ding läuft IMMER in den else-Zweig,
und ich habe keine Ahnung, warum.
IMHO hat es aber schon mal geklappt, und ich weiss
zum Henker nicht, was ich bewusst oder unbewusst geändert
habe.

Gruss Rolf

On 2023-12-30 14:56, Rolf Buenning <r.buenning@gmx.de> wrote:
> Hallo Ihr!
>
> Erstmal ein gesundes erfolgreiches 2024!
>
> Ich versuche mich in PERL.
> Hat Ulli mir ja auch geraten.
>
> #v+
>
> open(LESEN, "$filename") or die "$!: $filename\n";
> while ( <LESEN> )
> {
> if ( $_ =~ "String" )
> { print "gefunden: $_\n"}
> else
> { die "nicht gefunden!\n" }
> }
> close(LESEN) or die "Fehler $!\n";
> }
>
> #v-
>
> Das Ding läuft IMMER in den else-Zweig,

Bei mir nicht.

Also erst mal läuft es natürlich gar nicht, weil $filename nicht
initialisiert wurde und am Ende eine geschlossene Klammer ist, die nie
geöffnet wurde.

Aber wenn ich diese Fehler behebe, gibt es die Zeilen, die "String"
(genau so geschrieben) enthalten, mit dem Präfix "gefunden: " aus:

#v+
% cat foo
my $filename = "test.txt";

open(LESEN, "$filename") or die "$!: $filename\n";
while ( <LESEN> )
{
if ( $_ =~ "String" )
{ print "gefunden: $_\n"}
else
{ die "nicht gefunden!\n" }
}
close(LESEN) or die "Fehler $!\n";
#v-

#v+
% cat test.txt
Ein String
Das ist keiner
#v-

#v+
% perl foo
gefunden: Ein String

nicht gefunden!
#v-

hp

Rolf Buenning <r.buenning@gmx.de> writes:
>Das Ding läuft IMMER in den else-Zweig,
>und ich habe keine Ahnung, warum.

An welchen Stellen Deines Skriptes könntest Du print-Anweisungen
einbauen, um den Ablauf verfolgen zu können? Welche Variablen
sind kritisch für den Ablauf, und wie könnte man die Werte
dieser Variablen während der Ausführung ausgeben?

Ich würde empfehlen, einmal eine kleine Eingabedatei "$filename"
zu erstellen und dann aufzuschreiben, welche Ausgabe Du von
Deinem Skript nach dem Einbau von Debug-print-Anweisungen (wie
im vorigen Absatz angeregt) erwartest, und dies dann mit der
tatsächlichen Ausgaben vergleichen.

Falls das Problem dann immer noch nicht klar sein sollte:

Aus einer etwaigen Diskrepanz zwischen der erwarteten und
der tatsächlichen Ausgabe Deines Skripts (nach dem Einbau
von Debug-print-Anweisungen [wie im vorvorvorigen Absatz
angeregt]) könntest Du dann Hypothesen über Ursachen dieser
Diskrepanz aufstellen und durch den Einbau weiterer
Debug-print-Anweisungen überprüfen.

Rolf Buenning <r.buenning@gmx.de> wrote:
> #v+
>
> open(LESEN, "$filename") or die "$!: $filename\n";
> while ( <LESEN> )
> {
> if ( $_ =~ "String" )
> { print "gefunden: $_\n"}
> else
> { die "nicht gefunden!\n" }
> }
> close(LESEN) or die "Fehler $!\n";
> }
>
> #v-
>
> Das Ding läuft IMMER in den else-Zweig,
> und ich habe keine Ahnung, warum.

Das tut es bei mir nicht, aber wenn es einmal in den else-Zweig geraten ist,
beendet sich das Programm, weil dort die() aufgerufen wird. Bist Du sicher,
dass Du das möchtest? Ich vermute, dass Du eher folgendes machen willst:

#v+
my $filename = 'input.txt';
open(my $lesen, '<', $filename) or die "open $filename: $!";
while (<$lesen>) {
if ($_ =~ m/String/) {
print "gefunden: $_";
}
else {
print "nicht gefunden: $_";
}
} close($lesen);
#v-

Heiko

Mahlzeit!

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

> #v+
>
> open(LESEN, "$filename") or die "$!: $filename\n";
> while ( <LESEN> )
> {
> if ( $_ =~ "String" )
> { print "gefunden: $_\n"}
> else
> { die "nicht gefunden!\n" }
> }
> close(LESEN) or die "Fehler $!\n";
> }
>
> #v-
>
> Das Ding läuft IMMER in den else-Zweig,
> und ich habe keine Ahnung, warum.

Was steht denn in der Datei, die Du einliest?

Gruß
Christian
--
.....Christian.Garbs....................................https://www.cgarbs.de
APATHY ERROR! Don't bother to strike any key...

Heiko Schlichting <heiko@cis.fu-berlin.de> schrieb:
>
> Das tut es bei mir nicht, aber wenn es einmal in den else-Zweig geraten ist,
> beendet sich das Programm, weil dort die() aufgerufen wird. Bist Du sicher,
> dass Du das möchtest? Ich vermute, dass Du eher folgendes machen willst:
>
> #v+
> my $filename = 'input.txt';
> open(my $lesen, '<', $filename) or die "open $filename: $!";
> while (<$lesen>) {
> if ($_ =~ m/String/) {
> print "gefunden: $_";
> }
> else {
> print "nicht gefunden: $_";
> }
> }
> close($lesen);
> #v-
>

Du hast recht!

Es sind ja viele Zeilen im File.
Es muss ja durchlaufen bis zum Fileende oder bis der String
gefunden wurde.

Bisher wurde bei 'nicht gefunden' durch 'die' abgebrochen.
Jetzt klappt es (natürlich).
Danke für den Wink mit dem 'Zaunpfahl'.

Rolf

Christian Garbs schrieb:

> Was steht denn in der Datei, die Du einliest?

In der ersten Zeile jedenfalls nicht die gesuchte Zeichenfolge. ;)

Thomas Hochstein <thh@thh.name> schrieb:
> Christian Garbs schrieb:
>
>> Was steht denn in der Datei, die Du einliest?
>
> In der ersten Zeile jedenfalls nicht die gesuchte Zeichenfolge. ;)

Ja, stimmt ja.
In der Folge mit die gekillt, bevor alles gelesen und gecheckt war.
Jetzt 'löpt et'.
Rolf