![](https://seccdn.libravatar.org/avatar/51af9366dba8ac6b55032e277ecd6d28.jpg?s=120&d=mm&r=g)
Hallo, Man stelle sich vor: In der Datei /var/cinu steht in _einer_ Zeile der Username des Users der den Internetzugang freigeschalten hat. In meinem Perlscript wird diese Datei (über eine Variable) eingelesen und mitten in eine "print"-Ausgabe eingefügt. Und jetzt wird zu meinem Entsetzen nach der Ausgabe des Usernamens eine neue Zeile angefangen, einfach so! Das kapier ich nicht. Habe hier einen Auszug des Perl-Scripts: ---- Schnipp ---- #!/usr/bin/perl open (Read2, "http://www.wastie.de | ICQ#: 20196644 | |phone: +497123/379070 | fax: +49179/335990106 | cell: +49179/5990106 | |Tux#: 114751 | Open Minds. Open Source. Open Future. | Penguin inside| --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
![](https://seccdn.libravatar.org/avatar/2fed7b96f6ac466c4cc77306b246ac64.jpg?s=120&d=mm&r=g)
At 17:46 05.11.00 +0100, Simon Stiefel wrote:
Hallo,
Man stelle sich vor: In der Datei /var/cinu steht in _einer_ Zeile der Username des Users der den Internetzugang freigeschalten hat. In meinem Perlscript wird diese Datei (über eine Variable) eingelesen und mitten in eine "print"-Ausgabe eingefügt.
Und jetzt wird zu meinem Entsetzen nach der Ausgabe des Usernamens eine neue Zeile angefangen, einfach so! Das kapier ich nicht.
Habe hier einen Auszug des Perl-Scripts:
---- Schnipp ----
[PERLprog...]
---- Schnapp ----
Is das so ne Eigenart von Perl oder hab ich einen Bug entdeckt (weniger wahrscheinlich)?
Wie schreibst Du den den Namen in diese Datei, auch mit einem CR am Ende,
normalerweise ist da immer ein CR ?
Bau dann einfach ein chomp $inusr; ein, dann ist das CR am ende weg !
--
und servus
![](https://seccdn.libravatar.org/avatar/cf80ca58a483f89277587e4243208960.jpg?s=120&d=mm&r=g)
Hallo, Simon Stiefel schrieb:
In der Datei /var/cinu steht in _einer_ Zeile der Username des Users der ^^^^^^^^^^^^^^ => d.h. mit Zeilenvorschub!!!!
Und jetzt wird zu meinem Entsetzen nach der Ausgabe des Usernamens eine neue Zeile angefangen, einfach so! Das kapier ich nicht. Das ist vollkommen OK. Du liest die *komplette* Zeile mit dem Aufruf ein. Da ist dann als letztes Zeichen eben ein \n dran.
---- Schnipp ---- #!/usr/bin/perl
open (Read2, "
chomp entfernt das letzte Zeichen eines strings, wenn dies gleic $/ ist. Und $/ ist normalerweise \n.
Is das so ne Eigenart von Perl oder hab ich einen Bug entdeckt (weniger wahrscheinlich)? Nee, ist eine Eigenart des Programmierers ;-))
Ciao, Meini. -- Meinhard Schneider meini@meini.org; #ICQ:22574951 http://www.meini.org GNUPG/PGP-Keys available! (please contact me or visit my homepage) --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
![](https://seccdn.libravatar.org/avatar/51af9366dba8ac6b55032e277ecd6d28.jpg?s=120&d=mm&r=g)
On Sun, 5 Nov 2000, Meinhard Schneider wrote:
Hallo,
Hi,
---- Schnipp ---- #!/usr/bin/perl
open (Read2, "
abändern in: chomp($inusr = <Read2>);
Aha, Danke!
chomp entfernt das letzte Zeichen eines strings, wenn dies gleic $/ ist. Und $/ ist normalerweise \n.
Naja, in die Daeti wird von einem anderen Perl-Script der Name eines Users hineingeschreiben. Dass da dann gleich ne neue Zeile angefangen wird, ist mir neu...
Ciao, Meini.
Mit freundlichen Grüßen, with best regards Simon Stiefel -- |Simon Stiefel | Zwerbachstr. 17 | 72555 Metzingen-Glems | Germany | |SimonStiefel@wastie.de | http://www.wastie.de | ICQ#: 20196644 | |phone: +497123/379070 | fax: +49179/335990106 | cell: +49179/5990106 | |Tux#: 114751 | Open Minds. Open Source. Open Future. | Penguin inside| --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
![](https://seccdn.libravatar.org/avatar/2fed7b96f6ac466c4cc77306b246ac64.jpg?s=120&d=mm&r=g)
At 18:52 05.11.00 +0100, Simon Stiefel wrote:
Naja, in die Daeti wird von einem anderen Perl-Script der Name eines Users hineingeschreiben. Dass da dann gleich ne neue Zeile angefangen wird, ist mir neu...
hat der Printbefehl aber normalerweise so an sich !
nicht nur in Perl.
--
und servus
![](https://seccdn.libravatar.org/avatar/dc2e5ae9017752616ac2ff55036ced0a.jpg?s=120&d=mm&r=g)
* Simon Stiefel:
Und jetzt wird zu meinem Entsetzen nach der Ausgabe des Usernamens eine neue Zeile angefangen, einfach so! Das kapier ich nicht.
#!/usr/bin/perl
open (Read2, "
Is das so ne Eigenart von Perl oder hab ich einen Bug entdeckt (weniger wahrscheinlich)?
Nö, weder noch. Ich nehme an, dass in der Datei ein \n am Ende steht. #!/usr/bin/perl -wT use strict; use diagnostics; open READ2, "
![](https://seccdn.libravatar.org/avatar/3112b6c2aa2dc7030cc94b8d1f7938a0.jpg?s=120&d=mm&r=g)
* Thorsten Jens wrote:
#!/usr/bin/perl -wT
use strict; use diagnostics;
open READ2, "
my $inusr = <READ2>; close READ2;
chomp $inusr; # weg mit dem Zeilenumbruch in $inusr
print "$inusr war hier.\n";
christian -- * * Bitte kein CC: bei Antwort an Mailingliste * * Etikette per Mail: To: mailings-suse@gmx.de Subject: send etikette http://home.t-online.de/home/c.w.schult/etikette.html --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
![](https://seccdn.libravatar.org/avatar/dc2e5ae9017752616ac2ff55036ced0a.jpg?s=120&d=mm&r=g)
* Christian Schult:
* Thorsten Jens wrote:
#!/usr/bin/perl -wT
open READ2, "
Nett, wieder was gelernt.
my $inusr = <READ2>; close READ2;
chomp $inusr; # weg mit dem Zeilenumbruch in $inusr
Grrmpf, peinlich. Deswegen hatte ich die Mail ja geschrieben ... Thorsten -- http://www.thojens.de --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
![](https://seccdn.libravatar.org/avatar/9926ebc7a56d260063e1b7c4a79e1a0b.jpg?s=120&d=mm&r=g)
On Son, 05 Nov 2000, Simon Stiefel wrote:
print "Der User ".$inusr." hat bereits das Internet geöffnet!\n";
das \n erzeugt diese neue Zeile.
Is das so ne Eigenart von Perl oder hab ich einen Bug entdeckt (weniger wahrscheinlich)?
nein, warum willst du überhaupt keine neue zeile ? Mit freundlichen Grüßen, Joerg Henner. -- LinuxHaus Stuttgart | Tel.: +49 (7 11) 2 85 19 05 J. Henner & A. Reyer, Datentechnik GbR | D2: +49 (1 72) 7 35 31 09 | Fax: +49 (7 11) 5 78 06 92 Linux, Netzwerke, Consulting & Support | http://lihas.de --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com
participants (6)
-
cschult@gmx.de
-
hansi.klein@net-con.net
-
jhe@lihas.de
-
meini@meini.org
-
SiStie@wastie.de
-
thojens@gmx.de