Eternius: aus <INPUT> gelesene Zeile wieder zurückschieben

Beitrag lesen

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?