Counter zählt nicht. (Perl/CGI)

[thread]14261[/thread]

Counter zählt nicht.

Leser: 21

Articles: hide open all | hide show old branches

+20 replies
cbxk1xg

2009-11-18 11:59
User since
2003-10-20
496 Artikel
BenutzerIn
Hallo!

Ich habe ein total merkwürdiges Problem. Ich will in meinem CMS einen kleinen Zähler für die Seitenauffrufe integrieren. Dafür schreibe ich in eine CSV Datei alle Dateinamen und dahinter die Zahl der Auffrufe. Aus irgendeinem Grund wird aber nicht hochgezählt. Der Dateiname stimmt, die Zeile wird gefunden und neu geschrieben, aber der Wert bleibt immer 1. Normalerweise zähle ich integer mit $counter++ oder $counter += 1 hoch. Hier funktioniert es aber überhaupt nicht.

Im Hauptprogramm benutze ich use strict use warnings und den Taint mode. Or die beim öffnen oder schliessen benutze ich absichtlich nicht, da der Counter im Frontend Skript läuft. Wenn hier nur der olle Counter ein Problem hat, dann sollte bitte nicht das ganze Frontend abstürzen.

Aufbau der CSV
Code: (dl )

1 2

static/AboutUs/Testartikel_de=1 dated/Markus/ERsterTest024_de=1
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

sub CountAccess { my ($pid) = @_; my $filename = $PMroot.$PMcounter; my $Result = ""; my @FILE = (); open( FILE, "$filename" ); for my $line (<FILE>) { $line =~ tr-\n\r--d; push( @FILE, $line ); } close( FILE ); for my $i (@FILE) { if ($i =~ /$pid\=(.*?)/) { my $counter = $1; $counter += 1; $Result .= "$pid=$counter\n"; } else {$Result .= $i."\n";} } open( FILE, ">$filename" ); for my $line ($Result) { print FILE $line; } close( FILE ); }
Last edited: 2009-11-18 12:00:17 +0100 (CET)
- +3 replies
- pq
  
  2009-11-18 12:13
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  vorbildlich, dass du taint, strict und warnings benutzt.
  aber das nützt dir nix, wenn du die datei zweimal öffnest, und beim zweiten mal auch noch mit ">".
  stell dir vor, prozess 1 ist gerade dabei, den counter zu lesen, auszugeben und dann die datei zu öffnen. d.h. er ist jetzt direkt nach dem open mit ">". in dem augenblick ist die datei leer.
  
  nun kommt just der 2. prozess und öffnet die datei zum lesen, und liest eine leere datei, daraus wird dann bei der behandlung als zahl eine 0. so hast du den counter mal eben auf 0 zurückgesetzt. (bevor einwände kommen, dass das doch sehr unwahrscheinlich ist - es passiert, und die wahrscheinlichkeit steigt natürlich mit der anzahl der zugriffe).
  
  aber zum glück bist du nicht der erste, der einen counter schreibt, deswegen gibt es schon ewig diese FAQ dazu:
  http://perldoc.perl.org/perlfaq5.html#I-still-don'...
  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
  - +2 replies
  - cbxk1xg
    
    2009-11-18 12:21
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    OK. Das habe ich begriffen ich brauche also flock. Aber warum zählt der counter selbst auf meinem Testsystem (bin der einzige Benutzer) nicht?
    - pq
      
      2009-11-18 12:25
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      keine ahnung, mir sieht der code viel zu kompliziert aus, deine lese- und schreibroutinen sind allesamt sehr ungewöhnlich (siehe auch meine weiteren kommentare).
      korrigiere erstmal den code mit flock, und teste nochmal. und debugge immer vorher und nachher, was in der datei steht und was du reinschreibst. einfach auf STDERR printen und im errorlog nachgucken.
      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
- pq
  
  2009-11-18 12:19
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  im übrigen finde ich deine aussage, dass du kein "or die" verwendest, weil sonst dein skript stirbt, sehr merkwürdig.
  wer behauptet denn, dass fehlerbehandlung immer mit die() gemacht werden muss? stell dir vor, der lesezugriff funktioniert nicht, und das skript macht munter weiter, und der schreibzugriff funktioniert wieder (aus welchem grund auch immer). dann schreibst du mist in die datei. ausserdem werden vermutlich jede menge warnungen kommen.
  nur weil du kein die() verwenden willst, kann dir doch nicht egal sein, was dein skript im fehlerfall so macht.
  das mindest wäre, dass du aus der subroutine aussteigst, wenn das öffnen nicht klappt.
  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
- +6 replies
- GwenDragon
  
  2009-11-18 12:19
  
  User since
  2005-01-17
  14536 Artikel
  Admin1
  
  Ohne Dateisperre (file locking) beim Schreiben in die Datei bekommst du Ärger.
  Selbst mit flock kann es passieren, dass in der kurzen Zeit zwischen open und flock der zweite Prozess zugreift.
  Deswegen ist bei sowas sysopen sinnvoller.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - cbxk1xg
    
    2009-11-18 12:27
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    OK. Dann also locking. Fehlerbehandlung kommt ja auch noch rein. Nur halt kein "die". Ich werde dafür ein return 0 oder so benutzen. Aber die eigenlich Frage ist echt der doofe counter. Ich verstehe nicht, warum der keine zahl hochzählt. Wenn ich das Script an der Stelle mit mit die ("$counter"); anhalte ist der Wert immer 1.
    - +2 replies
    - cbxk1xg
      
      2009-11-18 12:29
      
      User since
      2003-10-20
      496 Artikel
      BenutzerIn
      
      Ich denke ich habe jetzt die Fehlerquelle, aber leider keine Lösung. Die Backreference $1 ist leer. Aber warum???
      - pq
        
        2009-11-18 12:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        aha. dann kannst du ja doch debuggen =)
        lass das fragezeichen bei der regex weg. weisst du, was das macht? das ist nur sinnvoll, wenn nach der klammer noch was kommt.
        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
    - pq
      
      2009-11-18 12:29
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wenn du debugging machst, solltest du in so einem fall nicht nur an einer stelle was rausschreiben und dann sterben.
      natürlich musst du, wie ich oben schrieb, an mehreren stellen gucken. irgendwo wird es schieflaufen, sonst würde in der datei hinterher nicht immer noch 1 stehen.
      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
  - pq
    
    2009-11-18 12:28
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2009-11-18T11:19:28 GwenDragon
    Selbst mit flock kann es passieren, dass in der kurzen Zeit zwischen open und flock der zweite Prozess zugreift.
    Deswegen ist bei sowas sysopen sinnvoller.
    
    na und? wo ist das problem? das hat schon immer funktioniert.
    man stelle zuerst sicher, dass die datei von anfang an existiert, damit man mit "+<" öffnen kann.
    prozess 1 macht das open (mit "+<").
    prozess 2 macht das open.
    prozess 1 macht flock.
    prozess 2 macht flock und muss warten.
    prozess 1 macht seine operationen und schliesst die datei.
    prozess 2 kommt dran und macht seine operationen.
    
    wo ist jetzt das problem?
    
    edit: im übrigen wird auch sysopen nichts helfen, wenn man zweimal die datei öffnet, einmal zum lesen und einmal zum schreiben.
    das wichtigste ist, dass in ein einziges open zu verlagern.
    Last edited: 2009-11-18 12:46:29 +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
- +9 replies
- pq
  
  2009-11-18 12:23
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  noch ein kommentar:
  abgesehen von der sehr merkwürdigen einrückung der zeilen im code schreibst du die datei mir newlines, aber ersetzen tust du beim lesen newlines und carriage returns. erstens sollte das immer nur \n sein, wenn du die datei immer nur auf demselben system liest und schreibst, zweitens entfernt man klassischerweise zeilenenden mit der funktion http://p3rl.org/chomp.
  
  deine schleife beim schreiben der datei ist irgendwie unnütz. wozu eine schleife über genau eine variable?
  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
  - +8 replies
  - cbxk1xg
    
    2009-11-18 12:31
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    2009-11-18T11:23:14 pq
    deine schleife beim schreiben der datei ist irgendwie unnütz. wozu eine schleife über genau eine variable?
    
    Hast absolut recht.
    - +7 replies
    - cbxk1xg
      
      2009-11-18 12:46
      
      User since
      2003-10-20
      496 Artikel
      BenutzerIn
      
      OK. Ich habe es jetzt umgeschrieben, habe aber immer noch das gleiche Problem. Wieso wird nicht hochgezählt???
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
      
      sub CountAccess { my ($pid) = @_; my $filename = $PMroot.$PMcounter; my $Result = ""; my @FILE = (); use Fcntl qw/:DEFAULT :flock/; # importiert die Konstanten für sysopen() und flock() flock(FILE,LOCK_EX); # Exklusiver Lock sysopen(FILE, $filename, O_RDONLY); for my $line (<FILE>) { $line =~ tr-\n\r--d; push( @FILE, $line ); } close( FILE ); for my $i (@FILE) { if ($i =~ /$pid\=(.*?)/) { my $counter = $1; $counter += 1; $Result .= "$pid=$counter\n"; } else {$Result .= $i."\n";} } sysopen(FILE, $filename, O_WRONLY); print FILE $Result; close( FILE ); flock(FILE,LOCK_UN); # Lock wieder freigeben }
      - +2 replies
      - cbxk1xg
        
        2009-11-18 12:50
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        Danke. Hat sich erledigt. Es lag an der RegEx. Ich hatte nicht nach einer Zahl gefragt.
        
        Code (perl): (dl )
        
        if ($i =~ /$pid\=(\d+)/)
        
        pq
        
        2009-11-18 12:52
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nein, es lag an dem fragezeichen. .* matcht genauso auf eine zahl wie \d+. hast du meinen kommentar zu dem fragezeichen nicht gelesen?
        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
      - pq
        
        2009-11-18 12:51
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        sag mal, hast du die FAQ jetzt gelesen oder nicht?
        wieso machst du das flock vor dem sysopen? steht das so in der FAQ? nein.
        
        und sagte ich nicht, dass ein zweimaliges open total sinnlos ist?
        bitte bitte lies dir nochmal meinen kommentar mit den 2 prozessen durch.
        einfach irgendwo in die datei ein flock schreiben macht dein programm nicht automatisch sicher vor race conditions. du solltest schon verstehen, was du da machst.
        und in der FAQ steht ein minimales, komplettes beispiel.
        das solltest du eigentlich ohne probleme auf deine problemstellung erweitern können.
        
        nur bloss nicht die datei zweimal öffnen... dann kannst du das locking gleich weglassen...
        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
      - GwenDragon
        
        2009-11-18 15:11
        
        User since
        2005-01-17
        14536 Artikel
        Admin1
        
        Ein deutsches Beispiel für open/sysopen und flock hat Thomas Fahle geschrieben.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        cbxk1xg
        
        2009-11-18 17:48
        
        User since
        2003-10-20
        496 Artikel
        BenutzerIn
        
        OK, OK, ihr habt ja recht. Ich werde mich da morgen noch mal ransetzen und mir sysopen und flock in Ruhe ansehen. Ich brauchte nur ganz schnell eine Lösung. - Schön ist anders und schön mache ich morgen.
        
        Danke Euch allen!
        
        pq
        
        2009-11-18 19:10
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        "es ist ja auch nur zu deinem besten" =)
        ich habe es selbst vor jahren erlebt, wie doof es ist, wenn der counter plötzlich auf 0 gesetzt wird, allerdings lag das damals an einer vollen festplatte auf dem rechner (shared hosting!). das müsste man also ggfs. auch noch berücksichtigen, wobei man bei einer vollen festplatte vermutlich dringendere probleme hat als den counter...
        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

View all threads created 2009-11-18 11:59.