/ Perl - Datei lesen und schreiben tut nicht wie es soll.

[Jens Irrgang]

Hey Andreas,

das war das wonach ich gesucht habe. Spitze.
Hier nun das korrigierte funktionierende Sub.

sub get_number {
   open(NUMBER,"+<$basedir/$datafile");
   flock(NUMBER, 2);
   $num = <NUMBER>;
   if ($num == 999999 || $num !~ /^\d+$/)  {
      $num = "10000";
   }
   else {
      $num++;
   }
   seek(NUMBER, 0, 0);
   print NUMBER $num;
   close(NUMBER);
}

Danke

Jens