close STDOUT funktioniert nicht (Allgemeines zu Perl)

[thread]18851[/thread]

close STDOUT funktioniert nicht

Leser: 18

Articles: hide open all | hide show old branches

+18 replies
Gustl

2014-01-16 20:22

User since
2011-01-27
443 Artikel
BenutzerIn

Hallo,

ich habe eine Eingabemaske auf meiner Webseite die das selbe Perl-skript wieder aufruft.
Mit diesen Eingaben werden Einträge aus der DB geholt. Diese dann in eine CSV geschrieben und diese CSV als EMail verschickt.

Die Abfrage dauert etwa 90 Sekunden. Es wäre nun schön wenn sich diese Zeit der Benutzer vom Browser sparen könnte.
Also habe ich mir gedacht ich close STDOUT vor der Abfrage, aber leider benötigt das Abschicken immer noch soviel Zeit...

Die Abfrage bzw. das wirklich Zeitintesive ist ganz sicher nach dem close STDOUT. Auf meinen gemieteten Webspace hat das super funktioniert. Aber auf meinen eingerichteten lokalen Apache geht das leider nicht. Fehlt vielleicht ein Eintrag in der httpd.conf bei Apache?

Hat jemand eine Idee?

Edit: Wenn ich close STDERR; nach close STDOUT; schreibe bricht er ab, aber dann macht er auch keine Abfragen in der Datenbank oder erstellt die zu verschickende Datei..
Last edited: 2014-01-16 20:24:56 +0100 (CET)
- +10 replies
- bianca
  
  2014-01-16 20:27
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Das funktioniert auf Windows Systemen nicht. Dazu habe ich bereits zahlreiche Threads. :)
  Willst du es für das Windows System lösen oder reicht es dir wenn du weißt, dass es nicht an deinem Code liegt?
  10 print "Hallo"
  20 goto 10
  - +9 replies
  - Gustl
    
    2014-01-16 20:27
    
    User since
    2011-01-27
    443 Artikel
    BenutzerIn
    
    Danke, also wenn es unter Windows auch zu lösen geht wäre es super. :)
    - +8 replies
    - bianca
      
      2014-01-16 20:30
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ist aber nicht ganz trivial, du brauchst im Script eine Fallunterscheidung nach Betriebssystem und das Modul Win32::Process. Damit startet man dann ein zweites Script und lässt das durch den Apache gestartete Script beenden. Sobald du das Modul installiert hast, können wir weiter machen.
      10 print "Hallo"
      20 goto 10
      - +7 replies
      - Gustl
        
        2014-01-16 20:36
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Habe Win32::Process installiert.
        Und in die index.pl eingebunden. Funktioniert.
        
        +6 replies
        
        bianca
        
        2014-01-16 20:53
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, wunderbar. Hast es ganz allein hinbekommen oder meinen alten Thread gefunden?
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        Gustl
        
        2014-01-16 20:56
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Ich habe das Modul jetzt nur installiert, welchen alten Thread meinst du?
        
        EDIT: Die Suche hier ist nicht so dolle. :(
        Last edited: 2014-01-16 21:00:42 +0100 (CET)
        
        +4 replies
        
        bianca
        
        2014-01-17 07:18
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achso. OK, die Lösung findet sich im Grunde in der Technik, dass das über Apache aufgerufene Script ein zweites startet, das dann die Arbeit übernimmt. Also im Grunde ein fork() aber mit dem Modul Win32::Process. Denn - und das ist das wichtige - unter Windows werden Prozesse standardmäßig als abhängiges Kind und nicht als Parallelprozess gestartet. Das heißt, jeder gestartete Prozess ist vom startenden Prozess abhängig und der startende Prozess wartet auf alle gestarteten Prozesse. Um das zu verhindern braucht es die Option DETACHED_PROCESS, die leider weder fork() noch system() noch exec() noch sonst ein Perl Bordmittel kennt. Hier zeigt sich einmal mehr, dass Perl und Windows noch keine richtigen Freunde sind.
        
        Daher wirst du auf Windows mit den genannten Kommandos niemals erreichen, dass Apache das Script beendet und den Browser bedient solange noch ein abhängiges Kind läuft. Und das unterscheidet es wesentlich von Linux.
        
        Der Aufruf mit Win32::Process steht im Grunde hier: msg #170807
        Last edited: 2014-01-17 07:25:11 +0100 (CET)
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        styx-cc
        
        2014-01-17 12:39
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        2014-01-17T06:18:36 bianca
        Das heißt, jeder gestartete Prozess ist vom startenden Prozess abhängig und der startende Prozess wartet auf alle gestarteten Prozesse. Um das zu verhindern braucht es die Option DETACHED_PROCESS, die leider weder fork() noch system() noch exec() noch sonst ein Perl Bordmittel kennt. Hier zeigt sich einmal mehr, dass Perl und Windows noch keine richtigen Freunde sind.
        
        Ich behaupte, dass durchaus die Möglichkeit besteht Kind und Parent unter Windows unabhängig voneinander über system zu starten:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!/usr/bin/perl use strict; $|++; print "parent: test1\n"; system 1, 'perl -e "$|++; for (1..10) {print \"child $_\n\"; sleep 1;}"'; print "parent: test2\n"; sleep 2; print "parent: test3\n"; sleep 5; print "parent: test6\n";
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        PS E:\> perl .\test.pl parent: test1 parent: test2 child 1 child 2 parent: test3 child 3 child 4 child 5 child 6 child 7 parent: test6 PS E:\> child 8 child 9 child 10 PS E:\>
        
        Gruß
        Pörl.
        
        bianca
        
        2014-01-17 12:45
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        styx-cc, versuch es mal mit einem Webscript und dem Apache. Ich weiß, dass das über die Kommandozeile geht.
        10 print "Hallo"
        20 goto 10
        
        Gustl
        
        2014-01-17 13:43
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Vielen Dank, ich werde es auf jeden Fall testen.
- +7 replies
- rosti
  
  2014-01-17 09:58
  
  User since
  2011-03-19
  3513 Artikel
  BenutzerIn
  
  Quote
  Hat jemand eine Idee?
  
  Ajax
  - +6 replies
  - bianca
    
    2014-01-17 11:28
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ajax nützt nichts, auch das Script würde 90 Sekunden auf sein Ende warten. Der Request läuft also auf Timeout.
    10 print "Hallo"
    20 goto 10
    - +5 replies
    - rosti
      
      2014-01-17 11:44
      
      User since
      2011-03-19
      3513 Artikel
      BenutzerIn
      
      Quote
      Ajax nützt nichts, auch das Script würde 90 Sekunden auf sein Ende warten.
      
      Das Script ja, aber nicht der Browser ;)
      - +3 replies
      - bianca
        
        2014-01-17 12:45
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2014-01-17T10:44:50 rosti
        Das Script ja, aber nicht der Browser ;)
        
        Und was hast du gewonnen, wenn das Ajax im Browser auf Timeout läuft?
        10 print "Hallo"
        20 goto 10
        
        Muffi
        
        2014-01-17 13:42
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Die Billiglösung (falls möglich) ist regelmäßig ein  zu schicken.
        1 + 1 = 10
        
        Gustl
        
        2014-01-17 13:42
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        An Ajax habe ich gar nicht gedacht. :)
        
        Danke.
      - bianca
        
        2014-01-17 16:41
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achso, du willst per Ajax das Script starten und das im Browser garnicht abwarten? Ja, das wäre eine Lösung.
        10 print "Hallo"
        20 goto 10

View all threads created 2014-01-16 20:22.