Gaestebuch

[Fokuhila]

Man sollte

@zeilen = map {
  if ( m(<!--begin-->) ){
    &eintrag
    .$_;
  } else {
    $_
  }
} (<INFILE>);

gelesen haben, um

@zeilen = map { (/<!--begin-->/) ? &eintrag.$_ : $_; } <INFILE>;

zu verstehen.

[…] Einfach open( "DATEI", "./$dateiname"); Dann ist sie
zugleich zum Lesen und Schreiben offen, […].

Nein, perldoc -f open:
  [...]
  If MODE is "'<'" or nothing, the file is opened for input.
  [...]

Ok, Irrtum vom Amt.