Rocksolid Light

groups  faq  privacy  How to post  login

Message-ID:  

I'll burn my books. -- Christopher Marlowe


rocksolid / de.comp.lang.perl / Re: Was geht hier nicht"

SubjectAuthor
* Was geht hier nicht"Rolf Buenning
+- Re: Was geht hier nicht"Peter J. Holzer
+- Re: Was geht hier nicht"Stefan Ram
+* Re: Was geht hier nicht"Heiko Schlichting
|`- Re: Was geht hier nicht"Rolf Buenning
`* Re: Was geht hier nicht"Christian Garbs
 `* Re: Was geht hier nicht"Thomas Hochstein
  `- Re: Was geht hier nicht"Rolf Buenning

1
Subject: Was geht hier nicht"
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Sat, 30 Dec 2023 14:56 UTC
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: Was geht hier nicht"
Date: 30 Dec 2023 14:56:20 GMT
Lines: 31
Message-ID: <kvapckFrnfnU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net LiOTE61YNkk0ArW/bzFRxAYFS0W1za0GYS3IxH0W6M4pL1Hnfl
Cancel-Lock: sha1:V+8f9ShW88ttcC3ks9xbeRepg2A= sha256:s2UnrqAfankQ369NwuTOmOfN8RJt66q1zQtvP74RZyE=
User-Agent: slrn/1.0.3 (Linux)
View all headers

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

Subject: Re: Was geht hier nicht"
From: Peter J. Holzer
Newsgroups: de.comp.lang.perl
Organization: LUGA
Date: Sat, 30 Dec 2023 15:14 UTC
References: 1
Path: i2pn2.org!i2pn.org!news.nntp4.net!weretis.net!feeder8.news.weretis.net!newsfeed.xs3.de!tahina.priv.at!news.luga.at!.POSTED.83.218.180.76!not-for-mail
From: hjp-usen...@hjp.at (Peter J. Holzer)
Newsgroups: de.comp.lang.perl
Subject: Re: Was geht hier nicht"
Date: Sat, 30 Dec 2023 16:14:19 +0100
Organization: LUGA
Message-ID: <slrnup0cub.1b53.hjp-usenet4@trintignant.hjp.at>
References: <kvapckFrnfnU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Injection-Info: vinge.luga.at; posting-host="83.218.180.76";
logging-data="21337"; mail-complaints-to="usenet@vinge.luga.at"
User-Agent: slrn/1.0.3 (Linux)
Cancel-Lock: sha1:dDAT3QHJEPPUboONXIoYMF/SRHE=
View all headers

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

Subject: Re: Was geht hier nicht"
From: Stefan Ram
Newsgroups: de.comp.lang.perl
Organization: Stefan Ram
Date: Sat, 30 Dec 2023 15:26 UTC
References: 1
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!fu-berlin.de!uni-berlin.de!not-for-mail
From: ram...@zedat.fu-berlin.de (Stefan Ram)
Newsgroups: de.comp.lang.perl
Subject: Re: Was geht hier nicht"
Date: 30 Dec 2023 15:26:01 GMT
Organization: Stefan Ram
Lines: 25
Expires: 1 Dec 2024 11:59:58 GMT
Message-ID: <else-20231230162537@ram.dialup.fu-berlin.de>
References: <kvapckFrnfnU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: news.uni-berlin.de UxtTf7YmmblWVgRZ86wuMArKoE2sooK2HStLIWOJCvMIKB
Cancel-Lock: sha1:vj1MFqeA3KUsT9um/6+tAQYotsU= sha256:qzB/W5e6TIIQ/4N5Kk6ar402qYxBOjfCTCXuJdSXnjA=
X-Copyright: (C) Copyright 2023 Stefan Ram. All rights reserved.
Distribution through any means other than regular usenet
channels is forbidden. It is forbidden to publish this
article in the Web, to change URIs of this article into links,
and to transfer the body without this notice, but quotations
of parts in other Usenet posts are allowed.
X-No-Archive: Yes
Archive: no
X-No-Archive-Readme: "X-No-Archive" is set, because this prevents some
services to mirror the article in the web. But the article may
be kept on a Usenet archive server with only NNTP access.
X-No-Html: yes
Content-Language: de-DE-1901
Accept-Language: de-DE-1901, en-US, it, fr-FR
View all headers

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.

Subject: Re: Was geht hier nicht"
From: Heiko Schlichting
Newsgroups: de.comp.lang.perl
Organization: Freie Universitaet Berlin
Date: Sat, 30 Dec 2023 17:30 UTC
References: 1
Path: i2pn2.org!i2pn.org!nntp.comgw.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: Was geht hier nicht"
Date: 30 Dec 2023 17:30:00 GMT
Organization: Freie Universitaet Berlin
Lines: 38
Message-ID: <kvb2coFtb2mU1@mid.uni-berlin.de>
References: <kvapckFrnfnU1@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 98xC6E0URC3P1Nerxu5qrARA7UGqly+EVqsIKnaNlS2ykKXx3VbYYxR8mYnaRG5DQGZpU=
Cancel-Lock: sha1:smRkT8wXA97jnp22c4lkejTtt90= sha1:/QMPs1hHOm2kjd2WFKwUj0820WI= sha256:erlPHg14s0NRNiAF1702ypVyIboBOcNWYb+U6RGkx6k=
User-Agent: slrn/1.0.3 (Linux)
View all headers

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

Subject: Re: Was geht hier nicht"
From: Christian Garbs
Newsgroups: de.comp.lang.perl
Organization: ya mine owne server
Date: Sun, 31 Dec 2023 09:07 UTC
References: 1
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!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: Was geht hier nicht"
Date: Sun, 31 Dec 2023 09:07:59 -0000 (UTC)
Organization: ya mine owne server
Message-ID: <umrb1f$6k68$1@yggdrasil.dn.cgarbs.de>
References: <kvapckFrnfnU1@mid.individual.net>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sun, 31 Dec 2023 09:07:59 -0000 (UTC)
Injection-Info: yggdrasil.dn.cgarbs.de; posting-host="localhost:127.0.0.1";
logging-data="217288"; mail-complaints-to="mitch@cgarbs.de"
User-Agent: tin/2.6.2-20221225 ("Pittyvaich") (Linux/6.1.0-16-amd64 (x86_64))
Cancel-Lock: sha1:dGfmRmq1IRaxxYgsJsiz4WDFRp0=
View all headers

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...

Subject: Re: Was geht hier nicht"
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Sun, 31 Dec 2023 10:30 UTC
References: 1 2
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: Was geht hier nicht"
Date: 31 Dec 2023 10:30:18 GMT
Lines: 32
Message-ID: <kvcu5qF9h7pU1@mid.individual.net>
References: <kvapckFrnfnU1@mid.individual.net>
<kvb2coFtb2mU1@mid.uni-berlin.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net G3MNb0IyJbGA8Iu4ib7uzgeeq4iznCfUBPFu/chjYNvb+1N0nK
Cancel-Lock: sha1:WV417OVBbhwBEpL5oOAsYNw60+o= sha256:HqxMa4h3ajy5VEQrywLlMNxHTv2e9pacLJgcfABcGTg=
User-Agent: slrn/1.0.3 (Linux)
View all headers

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

Subject: Re: Was geht hier nicht"
From: Thomas Hochstein
Newsgroups: de.comp.lang.perl
Date: Sun, 31 Dec 2023 13:49 UTC
References: 1 2
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!news.szaf.org!thangorodrim.ancalagon.de!.POSTED.scatha.ancalagon.de!not-for-mail
From: thh...@thh.name (Thomas Hochstein)
Newsgroups: de.comp.lang.perl
Subject: Re: Was geht hier nicht"
Date: Sun, 31 Dec 2023 14:49:30 +0100
Message-ID: <dclp.20231231144928.1152@scatha.ancalagon.de>
References: <kvapckFrnfnU1@mid.individual.net> <umrb1f$6k68$1@yggdrasil.dn.cgarbs.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Injection-Info: thangorodrim.ancalagon.de; posting-host="scatha.ancalagon.de:10.0.1.1";
logging-data="21001"; mail-complaints-to="abuse@th-h.de"
User-Agent: ForteAgent/8.00.32.1272
X-Face: *OX>R5kq$7DjZ`^-[<HL?'n9%\ZDfCz/_FfV0_tpx7w{Vv1*byr`TC\[hV:!SJosK'1gA>1t8&@'PZ-tSFT*=<}JJ0nXs{WP<@(=U!'bOMMOH&Q0}/(W_d(FTA62<r"l)J\)9ERQ9?6|_7T~ZV2Op*UH"2+1f9[va
Cancel-Lock: sha1:Ksoci16vcR/4WV46q6GH0awIwac=
X-Clacks-Overhead: GNU Terry Pratchett
X-NNTP-Posting-Date: Sun, 31 Dec 2023 14:49:28 +0100
View all headers

Christian Garbs schrieb:

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

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

Subject: Re: Was geht hier nicht"
From: Rolf Buenning
Newsgroups: de.comp.lang.perl
Date: Sun, 31 Dec 2023 16:06 UTC
References: 1 2 3
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: Was geht hier nicht"
Date: 31 Dec 2023 16:06:07 GMT
Lines: 11
Message-ID: <kvdhrfFcteoU1@mid.individual.net>
References: <kvapckFrnfnU1@mid.individual.net>
<umrb1f$6k68$1@yggdrasil.dn.cgarbs.de>
<dclp.20231231144928.1152@scatha.ancalagon.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net rWV9nWj86a2OWCxo+X6IoAALmu6n8oMFzHD6Mfiwp+Ni5qPhCQ
Cancel-Lock: sha1:627Xq/5D2p/HFDI+zpQnRwUEwxc= sha256:Bhbw7I9pKpojy3DMpFNOcPqJQzw1KcusZU6c6+yULIE=
User-Agent: slrn/1.0.3 (Linux)
View all headers

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


rocksolid / de.comp.lang.perl / Re: Was geht hier nicht"

1
server_pubkey.txt

rocksolid light 0.9.12
clearnet tor