shared lock Frage (gelöst) (Allgemeines zu Perl)

[thread]19654[/thread]

shared lock Frage [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
Kuerbis

2015-05-12 10:09
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo!

Ist hier das SEEK_SET überflüssig/falsch?
Code (perl): (dl )

1 2 3 4 5 6 7

use Fcntl qw( LOCK_SH SEEK_SET ); open my $fh, '<', $file die $!; flock $fh, LOCK_SH or die $!; seek $fh, 0, SEEK_SET or die $!; my $d = do { local $/; <$fh> }; close $fh;
Last edited: 2015-05-15 19:05:47 +0200 (CEST)
- Linuxer
  
  2015-05-12 10:22
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Wenn die Datei frisch aufgemacht wurde, steht der Handle sowieso am Dateianfang. Daher ist es IMHO überflüssig, die Position nochmal explizit auf den Dateianfang zu setzen.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- Raubtier
  
  2015-05-12 10:28
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Wenn du anhängen willst, reicht ein open '>>' + flock nicht, dann musst du auch noch das seek einbauen, da in der Zwischenzeit jemand geschrieben haben könnte. Beim Lesen kann dir aber egal sein, wie sich die Datei zwischen dem open und flock geändert hat, denn dein Filehandle zeigt ja auf den Anfang der Datei.
  - murphy
    
    2015-05-14 13:29
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    In einer POSIX-konformen Bibliotheksumgebung wird die Schreibposition eines Dateinhandles, das im Anhängemodus geöffnet wurde, automatisch bei jedem Schreibvorgang am aktuellen Ende der Datei positioniert. Ein manuelles Setzen der Dateiposition sollte also auch in diesem Fall überflüssig sein, weil es sich überhaupt nur auf Lesevorgänge auswirkt, sofern nicht C-Bibliothek, Betriebssystem oder Dateisystemtreiber kaputt sind.
    When C++ is your hammer, every problem looks like your thumb.
- Kuerbis
  
  2015-05-12 11:34
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Thx!
- +4 replies
- Kuerbis
  
  2015-05-15 11:02
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  Ist in diesem Fall das SEEK_END auch überflüssig?
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  open my $fh, '>', $file or die $!; flock $fh, LOCK_EX or die $!; seek $fh, 0, SEEK_END or die $!; print $fh $json; close $fh;
  - +2 replies
  - GwenDragon
    
    2015-05-15 12:00
    
    User since
    2005-01-17
    14747 Artikel
    Admin1
    
    Du gibst doch im Modus Write aus, da ist SEEK_END notwenig.
    
    Wolltest du wohl vielleicht für den Modus Append (= >>) fragen?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Kuerbis
      
      2015-05-15 19:15
      
      User since
      2011-03-20
      947 Artikel
      BenutzerIn
      
      Ok, danke. (Habe schon den Write-Modus gemeint).
  - Linuxer
    
    2015-05-17 22:54
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Hi,
    
    meiner Meinung nach ist das seek() hier überflüssig.
    
    da Du (über)schreibend öffnest (mit '>'), ist das seek() nicht notwendig, weil die bestehende Datei überschrieben wird und der Handle damit auf Position Null und gleichzeitig auch schon am Ende der Datei steht (ist ja eine neue Datei).
    
    Alleine das Öffnen im ">"-Modus leert die Datei.
    
    Aber warum probierst Du es nicht einfach selber aus?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    # specify file with content my $file = "bla.dat"; # open in (over)write mode clears the file! open my $fh, '>', $file or die "open($file,w) failed: $!"; # look at the file now, you have some time sleep 60; close $fh or die "close($file,w) failed: $!";
    
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2015-05-12 10:09.