Flock mit timeout (Allgemeines zu Perl)

[thread]13833[/thread]

Flock mit timeout

Readers: 23

Articles: hide open all | hide show old branches

+15 replies
freddy

2009-08-08 20:01
User since
2009-08-08
95 articles
BenutzerIn
Hi und Hallo!

Habe mir hier eine sub gebastelt und möchte darin eigentlich gern verwirklichen, dass mein flock maximal 3 Sekunden wartet und sonst mit Fehler zurück kehrt.
Aber es funktioniert nicht.
Obwohl die Datei definitiv frei bzw. noch garnicht vorhanden ist, meldet es trotzdem Timeout on flock. Warum?
Mein bisheriges gegoogle hat mich nicht weiter gebracht.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub create_link($) { my $filehandle = shift(@_); my $max_wartezeit = 3; my $fehler = ''; sysopen ($filehandle, "sysopentest.txt", O_RDWR | O_CREAT, 0600) or $fehler = $!; if (!$fehler) { my $start = time; while(!flock($filehandle,LOCK_EX|LOCK_NB) && time-$start<$max_wartezeit){ sleep 1; } $fehler = 'Timeout on flock' if !flock ($filehandle, LOCK_EX | LOCK_NB); } return $fehler; }
Last edited: 2009-08-08 20:54:32 +0200 (CEST)
- +4 replies
- sid burn
  
  2009-08-08 21:36
  User since
  2006-03-29
  1520 articles
  BenutzerIn
  So wie es ausschaut hast du die Funktionsweise von flock() nicht richtig verstanden.
  
  Wenn du flock() aufrufst dann wartet der Befehl solange bis es die datei locken kann. Wenn ein anderes Programm eine Stunde die Befehl lockt, dann würde der aufruf von flock() ebenfalls eine stunde dauern und dein programm würde solange stehen bleiben.
  
  flock() liefert NICHT den Status zurück ob eine Datei gelockt wurde oder nicht. Sondern es wartet bis es die datei locken kann, lockt es und fährt dann fort. Daher ein normaler umgang damit schaut so aus:
  
  Code (perl): (dl )
  
  1 2 3
  
  open my $fh, '<', $file or die $!; flock($fh); ### tue etwas mit der datei
  
  flock() wartet eben solange bis die datei gelockt werden konnte.
  
  Wenn du nur maximal drei sekunden warten möchtest dann müsstest du beispielsweise ein ALARM Handler aufsetzen der nach drei sekunden mit die() abbricht, und dass du dann mit eval {} abfängst.
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +2 replies
  - pq
    
    2009-08-09 01:39
    
    User since
    2003-08-04
    12208 articles
    Admin1
    
    2009-08-08T19:36:59 sid burn
    Wenn du flock() aufrufst dann wartet der Befehl solange bis es die datei locken kann.
    
    nicht, wenn man es mit LOCK_NB aufruft (NB steht für non blocking). es kehrt dann bei nichterfolg sofort zurück.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - freddy
      
      2009-08-09 10:01
      
      User since
      2009-08-08
      95 articles
      BenutzerIn
      
      2009-08-08T23:39:55 pq
      nicht, wenn man es mit LOCK_NB aufruft (NB steht für non blocking). es kehrt dann bei nichterfolg sofort zurück.
      
      Daher hab ich LOCK_NB ja auch drin.
      Und eigentlich dachte ich, dass der flock auf LOCK_EX|LOCK_NB ein 0 liefert, wenn es scheitert und ein 1, wenn der flock auf LOCK_EX erfolgreich gesetzt wurde.
      Daraus ergab sich der hier gepostete Code.
      
      Lieg ich da falsch oder warum tut der nicht?
  - freddy
    
    2009-08-09 10:51
    
    User since
    2009-08-08
    95 articles
    BenutzerIn
    
    2009-08-08T19:36:59 sid burn
    flock() liefert NICHT den Status zurück ob eine Datei gelockt wurde oder nicht. Sondern es wartet bis es die datei locken kann, lockt es und fährt dann fort.
    
    Du hattest mein LOCK_NB übersehen.
- +2 replies
- freddy
  
  2009-08-10 11:49
  
  User since
  2009-08-08
  95 articles
  BenutzerIn
  
  *nach oben schieb*
  
  Weiß jemand, was ich da falsch mache?
  
  Danke
  - LanX-
    
    2009-08-10 13:27
    
    User since
    2008-07-15
    1000 articles
    BenutzerIn
    
    2009-08-10T09:49:48 freddy
    *nach oben schieb*
    
    oh Freddy sucht den Weg in die Forumshölle...;-)
    Last edited: 2009-08-10 13:50:18 +0200 (CEST)
    me and my writeups
- +8 replies
- Taulmarill
  
  2009-08-10 12:20
  
  User since
  2004-02-19
  1750 articles
  BenutzerIn
  
  Lass mich raten: du arbeitest auf Windows?
  
  Hab gerade etwas rumprobiert und was spannendes herausgefunden. Auf meiner Linux-Kiste funktioniert das flock genau so wie du es erwartest. Auf meinem WinXP kann mein Script eine per flock gelockte Datei aber nicht noch einmal locken. Ich bekomme also beim ersten Aufruf von flock true zurück, und danach immer false bis ich den lock wieder selbst auflöse.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +7 replies
  - freddy
    
    2009-08-10 18:46
    User since
    2009-08-08
    95 articles
    BenutzerIn
    
    2009-08-10T10:20:25 Taulmarill
    Lass mich raten: du arbeitest auf Windows?
    
    Jup. Lokal zum Vortest XP und Apache.
    
    Und durch Dich animiert hab ich es auch nochmal umgebaut, sieht jetzt so aus:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    sub create_link($) { my $fh = shift(@_); my $max = 10; my $err = ''; sysopen($fh, "sysopentest.txt",O_RDWR|O_CREAT,0600) or $err=$!; if (!$err) { my $start = time; my $flock = flock($fh,LOCK_EX|LOCK_NB); while (!$flock && time-$start < $max) { print "Flock: >$flock< warte 1\n"; sleep 1; $flock = flock($fh,LOCK_EX|LOCK_NB); } $err = 'Timeout on flock' if !$flock; } return $err; }
    
    Und Deine Erfahrung unter Windows kann ich nicht bestätigen. Starte in DOS-Box 1 das Script, welches weiter unten nach Aufruf von create_link() 20 Sekunden sleep't.
    Dann warte ich etwa 10 Sekunden und starte in DOS-Box 2 das gleiche Script nochmal.
    Ergebnis: Script in DOS-Box 2 rennt los, sobald in DOS-Box 1 die Beendigung mit close() durch ist.
    
    Also insofern aus meiner Sicht unter Windows sauberes flock() gemacht. Warum das bei meinem Ursprungscode irgendwie nicht wollte, weiß ich jetzt auch nicht mehr.
    
    Danke
    - +4 replies
    - pq
      
      2009-08-10 18:52
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      2009-08-10T16:46:57 freddy
      Also insofern aus meiner Sicht unter Windows sauberes flock() gemacht. Warum das bei meinem Ursprungscode irgendwie nicht wollte, weiß ich jetzt auch nicht mehr.
      
      du hast im erfolgsfall, also nach dem ersten aufruf in der schleife, nochmal flock aufgerufen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - freddy
        
        2009-08-10 19:33
        
        User since
        2009-08-08
        95 articles
        BenutzerIn
        
        2009-08-10T16:52:09 pq
        du hast im erfolgsfall, also nach dem ersten aufruf in der schleife, nochmal flock aufgerufen.
        
        Achso.
        Das heißt
        
        Code (perl): (dl )
        
        $fehler = 'Timeout on flock' if !flock ($filehandle, LOCK_EX | LOCK_NB);
        
        war der Fehler?
        
        War das generell der Fehler oder speziell für Windows?
        
        +2 replies
        
        pq
        
        2009-08-10 20:01
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        der fehler war, dass du es nach dem erfolgreichen flock nochmal aufgerufen hast. das hat unter linux funktioniert, da man dort flock mehrmals auf demselben handle aufrufen kann, unter windows anscheinend nicht.
        so oder so ist es sinnlos, es mehrmals aufzurufen, nach der schleife hast du den lock ja.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        freddy
        
        2009-08-10 20:12
        
        User since
        2009-08-08
        95 articles
        BenutzerIn
        
        2009-08-10T18:01:19 pq
        der fehler war, dass du es nach dem erfolgreichen flock nochmal aufgerufen hast. das hat unter linux funktioniert, da man dort flock mehrmals auf demselben handle aufrufen kann, unter windows anscheinend nicht.
        so oder so ist es sinnlos, es mehrmals aufzurufen, nach der schleife hast du den lock ja.
        
        Ganz im Ernst: Ich find es dämlich von mir, dass ich es später nochmal aufgerufen habe. Hatte auch nicht bewußt angenommen, dass dies unter Linux funktioniert.
        
        Irgendwie erlag ich nach stundenlangem Gefummele dem "Wald vor lauter Bäumen".
        
        Ist denn die neue Version sauber pq?
        Last edited: 2009-08-10 20:13:07 +0200 (CEST)
    - +2 replies
    - freddy
      
      2009-08-10 19:42
      
      User since
      2009-08-08
      95 articles
      BenutzerIn
      
      Würdet Ihr denn zu dieser Lösung sagen, dass die "sicher" und "sauber" ist? Hätte man damit alles menschen- und perlmögliche getan, mit einer Datei und ihren Daten so sicher wie möglich umzugehen?
      
      Danke für alle - auch zustimmenden - Meinungen
      Last edited: 2009-08-10 19:57:40 +0200 (CEST)
      - freddy
        
        2009-08-14 14:44
        
        User since
        2009-08-08
        95 articles
        BenutzerIn
        
        Hier würde ich mich noch sehr über Eure Meinung freuen.
        Oder heißt Stillschweigen Zustimmung?
        
        Danke Euch

View all threads created 2009-08-08 20:01.