Daten schreiben + auslesen

[Matti Maekitalo]

use Mosche;

Dieses Beispiel ist _falsch_, denn

open FILE, "counter.txt";
$counter = <FILE>;
close FILE;

$counter ist zu Begin "\n", uns sonst "1\n", ...

open FILE, ">counter.txt";
print FILE ++$counter;
close FILE;

Außerdem fragst du keine Fehler ab, was insbesondere bei Dateioperation sinnvoll bis notwendig ist.

use Tschoe qw(Matti);