Multi-Threading-Problem bei Dateizugriff (Perl/CGI)

[thread]14286[/thread]

Multi-Threading-Problem bei Dateizugriff

Leser: 16

Articles: hide open all | hide show old branches

+8 replies
slyfox1972

2009-11-23 09:18
User since
2009-11-23
1 Artikel
BenutzerIn
Hallo!

Ich entwickle gerade selber eine Upload-Progress-Bar...

Das Prinzip ist einfach: das CGI-Script, das die Dateien empfängt, schreibt die Zahl der empfangenen Bytes in eine Datei, per Javascript wird laufend ein anderes CGI-Script aufgerufen, das die Bytes ausliest.

Hier werden die Bytes geschrieben:
Code (perl): (dl )

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

my $query = CGI->new(\&hook, $sessid); sub hook { $my_file="/tmp/upload/$umid" . ".meta"; open(PLOT,">$my_file") || die("This file will not open!"); flock PLOT, 2; # lock file print PLOT $bytes_read; print PLOT "/"; print PLOT $ENV{'CONTENT_LENGTH'}; flock PLOT, 8; # unlock file close(PLOT); }
Hier werden sie ausgelesen:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

$file = "/tmp/upload/" . $in{'session'} . ".meta"; $opened = open(DATA, "<$file") or die("can't open $file"); if($opened) { binmode DATA; $data = <DATA>; close(DATA); print $data; }
Das Problem bei der Sache: Manchmal greifen beide Scripte gleichzeitig auf die Datei zu, und $data bekommt einen leeren String. Wie kann ich beide Scripte synchronisieren, so dass eine keine Konflikte gibt?

viele Grüße

Egon Schmid
- bianca
  
  2009-11-23 09:34
  
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  
  Der Leerstring kann eigentlich nur in der Millisekunden entstehen, wenn das obere Script gerade den alten Wert löscht und kurz davor ist, den neuen zu schreiben.
  
  Daher würde ich im unteren Script auf Leerstring abfragen und wenn true nochmal lesen. Wenn dann wieder true mal sleep 1 und nochmal lesen.
  10 print "Hallo"
  20 goto 10
- +6 replies
- pq
  
  2009-11-23 10:26
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du mussst mit file-locking arbeiten. siehe z.b. den kürzlichen thread Counter zählt nicht. und die FAQ http://perldoc.perl.org/perlfaq5.html#I-still-don'...
  
  edit: bzw. wenn du die Datei immer komplett neu schreibst, könntest du alternativ erst eine temp-Datei schreiben und die dann per rename() oder File::Copy::move() an die richtige Stelle verschieben, dann sollte der Fall nicht mehr auftreten, dass das zweite Skript eine gerade im Schreiben befindliche Datei ausliest.
  Last edited: 2009-11-23 10:37:20 +0100 (CET)
  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
  - +5 replies
  - sid burn
    
    2009-11-23 11:06
    
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Quote
    bzw. wenn du die Datei immer komplett neu schreibst, könntest du alternativ erst eine temp-Datei schreiben und die dann per rename() oder File::Copy::move() an die richtige Stelle verschieben, dann sollte der Fall nicht mehr auftreten, dass das zweite Skript eine gerade im Schreiben befindliche Datei ausliest.
    
    Wenn man File::Copy::move nutzt und Quelle/Ziel nicht auf der gleichen Partition liegen dann kopiert File::Copy::move, daher kann es hier wieder passieren das ein Programm eine Datei ausliest die gerade beschrieben wird.
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - +4 replies
    - pq
      
      2009-11-23 11:13
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ach ja stimmt, also rename() verwenden und am besten datei ins gleiche verzeichnis, so dass die gleiche partition sichergestellt ist
      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
      - bianca
        
        2009-11-23 11:18
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2009-11-23T10:13:45 pq
        ach ja stimmt, also rename() verwenden und am besten datei ins gleiche verzeichnis, so dass die gleiche partition sichergestellt ist
        
        Scheitert rename() nicht, wenn das andere Script gerade daraus liest?
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2009-11-23 11:19
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wieso sollte es? zumindest unter linux sollte das alles kein problem sein, keine ahnung, was windows da macht...
        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
        
        sid burn
        
        2009-11-23 11:37
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Unter Linux nein, und das führt da auch zu keine Probleme.
        Unter Windows geht das glaube ich nicht.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-11-23 09:18.