![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |
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
![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |