Opened by Gast at 2008-06-20 18:47
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
also wenn es sich um texteingabe im terminal handelt und man keine regex braucht,
um das ende zu erkennen (beispielsweise könnte man wie sendmail einen einzelnen punkt
als ende betrachten), dann geht es einfach, indem man $/ auf "\n.\n" setzt.
dann kann man ganz wie gewohnt einlesen.
ansonsten geht auch noch CTRL-d (unter linux), um STDIN zu beenden. unter windows ist das
glaube ich CTRL-z.
um das ende zu erkennen (beispielsweise könnte man wie sendmail einen einzelnen punkt
als ende betrachten), dann geht es einfach, indem man $/ auf "\n.\n" setzt.
dann kann man ganz wie gewohnt einlesen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$ perl -we'
local $/ = "\n.\n";
print "Eingabe: ";
chomp(my $input = <STDIN>);
print "== Ausgabe:\n$input\n==\n";'
Eingabe: 2
3
4
.
== Ausgabe:
2
3
4
==
ansonsten geht auch noch CTRL-d (unter linux), um STDIN zu beenden. unter windows ist das
glaube ich CTRL-z.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem