Dateisicherung bei Änderung - Flock und mehr (Allgemeines zu Perl)

[thread]16962[/thread]

Dateisicherung bei Änderung - Flock und mehr

Leser: 17

Articles: hide open all | hide show old branches

+8 replies
marky

2011-12-03 10:05
User since
2003-08-15
215 Artikel
BenutzerIn
Hallo,

ich habe mal wieder ein Problemchen, ich lasse über eine Admin-Oberfläche Files ändern. Die Logik ist immer gleich
Code: (dl )

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

open (DAT2 , "> datei.tmp") ; flock(DAT2,2) ; open (DAT1 , "< datei.org") ; if ( id==getid) change && print DAT2 else print DAT2 close(DAT1) ; close(DAT2) ; rename(datei.org,datei.bak) ; rename(datei.tmp,datei.org) ;
ich durchlaufe die org-Datei, speichere die Zeile dann in die Tmp-Datei und benenne die Text-Datei dann um, das mache so, damit ich nicht die ganze org-Datei in den Speicher laden muss, weil die ggf. sehr gross sein kann. Jetzt habe ich doch vermehrt das Problem - dass das org-File leer ist - klar in der Microsekunde zwischen dem Lock-release und dem rename kann es knallen.

In den letzten Jahren schien die wahrscheinlichkeit sehr gering zu sein, dass das passiert, jetzt häufen sich aber die Fälle - ist auch kein grossen Problem, da vor jeder Änderungsaktion eine Sicherung gemacht wird, nervig ist es aber trotzdem - die Frage ist nun, wie könnte man den Lock über die rename-Aktion verlängern.

Hat da jemand eine Idee?
Mfg
Markus - http://www.perlunity.de -
- bianca
  
  2011-12-03 11:49
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Ich verstehe garnicht, was du da machst.
  Erst wird die org gelesen und in die tmp geschrieben.
  Später wird dann die tmp in org umbenannt nachdem die org in bak umbenannt wurde?
  Wofür ist das gut?
  Im übrigen kann man ja mit sysread Zeichenweise lesen und schreiben, ohne alles in den Speicher holen zu müssen.
  
  Beispiel für das sysread:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  sub BACKUP { my $quelle = shift || ''; return "$quelle No such file" if !-f $quelle; my $auf; local *QUELLE; open (QUELLE,"<$quelle") or return "$quelle $!"; binmode (QUELLE); local *BACKUP; open (BACKUP,">$quelle.bak") or return "$quelle.bak $!"; binmode (BACKUP); my $puffer; print BACKUP $puffer while (sysread QUELLE,$puffer,4096); close (BACKUP); close (QUELLE); return ''; }
  
  Das ist uralter Code. Inzwischen benutzt man andere Filehandle und du müsstest das flock und rename/del noch integrieren. Dann sollte das eigentlich alles in einem ablaufen.
  10 print "Hallo"
  20 goto 10
- GwenDragon
  
  2011-12-03 12:12
  
  User since
  2005-01-17
  14848 Artikel
  Admin1
  
  1. Dir ist schon klar, dass du Dateioperationen niemals überprüfst und dich immer darauf verlässt, dass es klappt.
  
  2. Wenn du Dateien sperrst, die über ein Netzwerkdateisystem eingebunden sind, funktionieren Locks nicht korrekt.
  
  3. Der Dateilock wirkt bei deinem Code nur auf die schreibende Datei, nicht auf die lesende.
  
  4. Locks werden nach close implizit aufgehoben.
  Last edited: 2011-12-03 12:14:51 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- GwenDragon
  
  2011-12-03 13:23
  
  User since
  2005-01-17
  14848 Artikel
  Admin1
  
  Fallen im Dateiolocking:
  http://www.perlmonks.org/?node_id=7058
  http://perl.plover.com/yak/flock/
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - marky
    
    2011-12-04 08:23
    
    User since
    2003-08-15
    215 Artikel
    BenutzerIn
    
    Morgen,
    
    lustigerweise bin gestern nach langem Nachdenken, genau auf die Lösung gekommen
    
    http://perl.plover.com/yak/flock/samples/slide011....
    
    ich öffene einfach zusätzlich ein anderes File vorher per flock mit dem nichts passiert, ausser dem lock - so kann man die ganzen nachfolgenden Aktionen auf einmal schützen und schliesse das auch nicht, der flock wird dann am Ende des Programmdurchlaufes released.
    
    So kann ich sogar den eigentlich Ablauf viel besser steuern und auch Programmteile warten lassen, die zb. nur lesend (zb. per Suche) auf die zu ändernde Datei zugreifen.
    
    Danke für die Antworten ...
    Mfg
    Markus - http://www.perlunity.de -
    - +3 replies
    - bianca
      
      2011-12-04 10:26
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-12-04T07:23:48 marky
      ich öffene einfach zusätzlich ein anderes File vorher per flock mit dem nichts passiert, ausser dem lock - so kann man die ganzen nachfolgenden Aktionen auf einmal schützen
      
      Das steht da aber nicht.
      Man muss trotzdem jede Datei flock'en die man exklusiv haben will, das wird nicht vererbt.
      Außerdem ist die Syntax aus deinem Link auch veraltet.
      Was du da gefunden hast löst dein Problem m.E. nicht.
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - pq
        
        2011-12-04 14:07
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        sicher löst es das problem - wenn sich jedes programm, das die betroffenen dateien öffnen will, daran hält und die semaphore benutzt, und soweit ich das sehe, ist das hier nur eines.
        flock generell ist ja kein verbindliches locking, sondern nur sinnvoll, wenn es alle anderen programme auch benutzen.
        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
        
        bianca
        
        2011-12-04 14:09
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-12-04T13:07:46 pq
        sicher löst es das problem
        
        OK, dann habe ich das Problem nicht verstanden.
        Auf die zahlreichen Fragen gab es ja bisher auch leider keine Antwort.
        10 print "Hallo"
        20 goto 10

View all threads created 2011-12-03 10:05.