Thread NUtzereingabe auf Konsole? (11 answers)
Opened by Math55 at 2004-05-12 13:27

format_c
 2004-05-12 19:01
#82285 #82285
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Mein Beispiel funktioniert.
hab noch die Prüfung auf leere eingabe hinzugefügt

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
while (chomp(my $in = <DATA>)) {
next if $in =~ /^\s*$/;
last if $in eq '0';
print "Ausgabe:\t$in\n";
}
_ _DATA_ _
test
trassd
1

sdfsdf
0
das darf nicht mehr komen
_ _END_ _
Ausgabe: test
Ausgabe: trassd
Ausgabe: 1
Ausgabe: sdfsdf


Gruß Alex

View full thread NUtzereingabe auf Konsole?