你好 Ark,

1. Frage
   Gesucht wird nach der Lösung mit welcher man
   während der geöffneten textdatei solange sie sogar noch
   unter  'flock' steht  ausgegeben werden kann.
   Das war irgendwas mit  while(FILEHANDLE)  aber ich bekomms nicht mehr hin.

Du meinst vermutlich

  
print while <HANDLE>;  

2. Frage:
   Wie kann man eine Textdatei welche mehrere Zeilen enthält
   in einen scalar einlesen?
   my @inhalt = <DATEI>;   tut es in einen @array einlesen.
   Der Versuch  my $my_scalar = <DATEI>;   gab nur die erste Zeile zurück.

Du musst den “Record Seperator” umsetzen:

  
my $scalar = '';  
{  
  local $/;  
  $scalar = <HANDLE>;  
}  
  
print $scalar;  

再见,
 CK