sub + filelock nicht möglich!

[Gary]

Hi CPAN

[...] Meine Antwort bezieht sich auf deinen Stil, der ganz grauenhaft ist.

Äm- mein Perlstil hat sich die letzten Tage doch stark verbessert - finde ich. Geht vom Stil her stark nach Basic - > vom Ablauf in eine Richtung... schön Eines nach dem Anderen....

Modernes Perl schreibt man so:

use 5.010;
use strict;
use warnings FATAL => 'all';
use autodie qw(:all);
use Fcntl qw(:flock);

{
    # am Ende dieses Gültigkeitsbereiches wird $handle
    # automatisch geschlossen und entlockt
    open my $handle, '<', 'KDB-Data/key-guard.csv';
    flock $handle, LOCK_EX;
    my $a_bus = <$handle>;
    given ($a_bus) {
        when ('busy') { Besetzt(); }
        when ('free') { print {$handle} 'busy'; }
    }
}

  
Das ist ja gar nicht wie in der Dokumentation. Sieht nach HardCoreScripting aus...  
Nicht falsch verstehen - ich bin wirklich erstaunt wie man da noch mitkommt...  
  
Einfaches Perl ist für mich aber völlig ausreichend - erwürdiger Meister!! \*respect\*  
  
Gruß Gary