Hallo,
vielleicht hilft dir das weiter:
if (1)
{
while (<DATA>)
{
last if /3/;
print;
}
}
print "--\n";
foreach ($_, <DATA>)
{
next unless defined;
print;
}
__DATA__
line1
line2
line3
line4
line5
für 0 ergibt es:
--
line1
line2
line3
line4
für 1:
line1
line2
--
line3
line4
line5
gruss
für 1 und if /6/:
line1
line2
line3
line4
line5--
gruss
--
no strict;
no warnings;
Terrorific!
Given a cow full of milk, should the milk un-cow itself, or should the cow milk itself?
no strict;
no warnings;
Terrorific!
Given a cow full of milk, should the milk un-cow itself, or should the cow milk itself?