Wann startet ein END Block (Allgemeines zu Perl)

[thread]14458[/thread]

Wann startet ein END Block

Leser: 30

Articles: hide open all | hide show old branches

+31 replies
Escape

2010-01-06 16:02

User since
2008-07-24
312 Artikel
BenutzerIn

Ich habe ein Modul das in diversen Scripten an bestimmten Stellen, per 'require' eingebunden wird und unabhängig vom Hauptscript, bestimmte Prozeduren erledigt.

Die Idee ist nun, dem Modul noch einen END Block hinzuzufügen der Funktionen enthält die im Hintergrund ablaufen.

Bevor ich da nun rumbastele die Frage:
Wird der END Block ausgeführt wenn das Modul beendet ist oder wird er ausgeführt wenn das Hauptscript beendet ist?
Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
- +29 replies
- renee
  
  2010-01-06 16:08
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Wenn das Hauptscript beendet wird...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +28 replies
  - bianca
    
    2010-01-06 16:19
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-01-06T15:08:06 renee
    Wenn das Hauptscript beendet wird...
    
    Wartet ein Kanal nach STDOUT auf die vollendete Ausführung des END-Blocks oder nicht?
    Also wenn man jetzt ein CGI-Script zugrunde legt, was über STDOUT an den Browser printet.
    10 print "Hallo"
    20 goto 10
    - +27 replies
    - Taulmarill
      
      2010-01-06 16:28
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Weiß nicht ob ich deine Frage richtig verstehe, aber ein print() in einem END-Block schreibt genau so nach STDOUT wie sonst auch. Der Webserver wartet auf das Ende des Interpreters und weiß nicht, ob sich dein Script in einem speziellen Block oder in der normalen Ausführung befindet.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +26 replies
      - bianca
        
        2010-01-06 16:34
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-01-06T15:28:49 Taulmarill
        Der Webserver wartet auf das Ende des Interpreters und weiß nicht, ob sich dein Script in einem speziellen Block oder in der normalen Ausführung befindet.
        
        Das meinte ich. Genau das.
        
        Heißt im Umkehrschluss, dass der END-Block jetzt nicht unbedingt geeignet ist, Scriptaktivität im Hintergrund laufen zu lassen, auf die der Client nicht warten soll, oder?
        
        Ich frage, weil ich solche Sachen bisher mit fork() löse und wissen möchte, ob END auch eine Alternative für mich darstellt.
        10 print "Hallo"
        20 goto 10
        
        +25 replies
        
        pq
        
        2010-01-06 16:43
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        wenn man in einem CGI-skript was forked, sollte man (ausser den signalhandler zu installieren) auch alle standard-filehandles schliessen, damit der elternprozess auch wirklich abgekoppelt ist. von daher macht es hier keinen unterschied, ob END oder nicht.
        
        generell würde ich END-blöcke aber nur fürs notwendigste benutzen, z.b. um in unerwarteten abbrüchen sachen aufzuräumen.
        ansonsten kann man ja code einfach ans ende des scripts schreiben.
        
        grund ist, je mehr man signalhandler-manipulation, code in END-blöcken etc. benutzt, desto eher kann es konflikte geben, da auch benutzte module sowas gern mal manipulieren.
        und unter mod_perl o.ä. müsste man das mit dem END-block eh überdenken, und ich schreib ungern code, der nur mit CGI funktioniert.
        
        edit: hatte das in einen CGI-kontext gestellt. war aber vermutlich gar nicht für CGI gedacht
        Last edited: 2010-01-06 16:46:48 +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
        
        +24 replies
        
        bianca
        
        2010-01-06 16:47
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das verwirrt mich jetzt.
        
        Mal angenommen das Beispiel, was wir letztens hatten. Man möchte über ein Webinterface einen Job starten, der im Hintergrund sehr zeitaufwendige Dinge machen soll. Das Interface soll aber nach dem Start des Jobs sofort zurück kommen.
        Da wurde auch fork() empfohlen - zumindest von mir.
        Quasi der Vater das Webinterface und der Sohn der langwierige Job.
        
        Heißt Dein Posting, man bräuchte für soetwas garkein fork()?
        
        Wie kann man sonst verhindern, dass der Webserver wartet? Kann man das anderweitig - z.B. durch close STDOUT steuern? Oder hab ich das falsch verstanden?
        10 print "Hallo"
        20 goto 10
        
        +23 replies
        
        pq
        
        2010-01-06 16:51
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2010-01-06T15:47:09 bianca
        Heißt Dein Posting, man bräuchte für soetwas garkein fork()?
        
        woraus liest du das?
        ich sagte lediglich, dass ich END-blöcke nur wenn wirklich notwendig benutze.
        und dass es ansonsten keinen unterschied macht, ob ich aus einem END heraus forke oder nicht, hauptsache man beachtet das mit den filehandles und sighandler.
        ich hab nirgendwo gesagt, dass man kein fork benutzen sollte oder es für sowas nicht braucht. im gegenteil, für sowas braucht man es dringend.
        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
        
        +22 replies
        
        bianca
        
        2010-01-06 16:56
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-01-06T15:51:59 pq
        woraus liest du das?
        
        Aus garnichts konkret, mich hat nur
        
        Quote
        von daher macht es hier keinen unterschied, ob END oder nicht
        
        ins Schleudern gebracht.
        
        Jetzt hab ich es verstanden, danke Dir.
        Wo sind denn begin und end eigentlich dokumentiert? perldoc -f end und perldoc end klappen beide nicht.
        Hab das noch nie benutzt, würde mich mal interessieren, wofür man das gebrauchen kann.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2010-01-06 16:58
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        in perlsub gibt es einen hinweis auf die blöcke, es sind keine subroutinen. dort wird auf perlmod verwiesen. abschnitt "BEGIN, UNITCHECK, CHECK, INIT and END"
        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
        
        +20 replies
        
        sid burn
        
        2010-01-06 17:26
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Der BEGIN Block wird relativ häufig genutzt, auch wenn es mehr versteckt ist.
        Jedes Modul das man mit "use" lädt wird mit einem "BEGIN" Block sozusagen "umschlossen". Das bedeutet sämtlicher Code wird auch ausgeführt.
        
        Auch kann ein BEGIN wichtig sein wenn man sachen setzen möchte, z.B. Variablen noch bevor ein Modul geladen wird. Ohne BEGIN Block werden Variablen erst nach dem Laden gesetzt.
        
        Grundsätzlich wenn man aber halbwegs Modern arbeitet trifft man soetwas in der regel nicht mehr an.
        
        Ansonsten kann das ganze noch in Einzeilnern nett sein.
        
        Code: (dl )
        
        perl -pe ' BEGIN { print "Header....\n" } s/asd/wer/g; END { print "Ende...\n" } '
        
        Mit diesem Beispiel kann man z.B. einmalig zu beginn etwas ausführen, und einmalig am ende. Zum Beispiel ein Header/Footer hinzufügen während danach jede Programmzeile mit der Regex bearbeitet wird.
        
        Für "CHECK" oder "INIT" hatte ich auch mal ein Beispiel, weiß aber nicht mehr den genauen zusammenhang.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +19 replies
        
        bianca
        
        2010-01-06 17:47
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-01-06T16:26:49 sid burn
        Auch kann ein BEGIN wichtig sein wenn man sachen setzen möchte, z.B. Variablen noch bevor ein Modul geladen wird. Ohne BEGIN Block werden Variablen erst nach dem Laden gesetzt.
        
        Hast Du hierfür bitte auch mal ein Beispiel?
        Danke Dir
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2010-01-06 17:59
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        MyTest.pm
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        package MyTest; print $main::test; 1;
        
        Skript.pl
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        #!/usr/bin/perl use strict; use warnings; our $test = 'hallo'; use MyTest;
        
        vs
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #!/usr/bin/perl use strict; use warnings; our $test BEGIN { $test = 'hallo'; } use MyTest;
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        GwenDragon
        
        2010-01-06 18:02
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Zu Beginn eines Skripts:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my $t0; BEGIN { use Time::HiRes qw( gettimeofday tv_interval ); $t0 = [ gettimeofday() ]; # Start des Geschwindigkeitstests use FindBin; # Startverzeichnis des Skripts ermitteln use vars qw( $skriptdir ); $skriptdir = $FindBin::Bin; } my $datadir = $skriptdir; # Verzeichnis mit Konfiguration, Templates ... use lib "../$skriptdir/lib"; # lokale Module einbinden ... my $consumedtime = tv_interval ( $t0, [gettimeofday]);
        
        //EDIT: Wenn über das Startverzeichnis des Skripts das Verzeichnsi der Packages ermittelt werden soll oder die Ablaufdauer eines Skripts ermittelt werden soll.
        
        PS: Gebe zu, das ist etwas altbacken, steht aber ähnlich in so manchen Firmencode.
        Last edited: 2010-01-06 18:06:28 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        pq
        
        2010-01-06 18:08
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        FindBin benutzt das, um die benötigten variablen früh genug exportieren zu können, so dass das benutzende modul diese variablen wiederum in einem use lib ... benutzen kann. hast du bestimmt schonmal benutzt:
        
        Code (perl): (dl )
        
        1 2
        
        use FindBin qw/ $Bin /; use lib "$Bin/../lib";
        
        ohne BEGIN wäre das $Bin an der stelle undef.
        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
        
        +15 replies
        
        sid burn
        
        2010-01-09 16:40
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Noch ein Beispiel wäre die Manipulation von @INC. @INC gibt ja wie du weist an wo Perl nach Module suchen soll. Wenn du soetwas schreibst.
        
        Code (perl): (dl )
        
        1 2
        
        push @INC, '/add/another/path'; use My::Own::Module;
        
        Und das Modul "My::Own::Module" in den Pfad liegen würde dann würde der obrige Code nicht klappen. da das "push" erst zur Laufzeit ausgeführt wird. das "use ..." aber bereits zur kompilierzeit, man müsste also ein "BEGIN { }" um den push Befehl machen. Damit die Variable sofort noch zur Kompilierzeit erweitert wird, noch bevor die "use" Zeile ausgeführt wird.
        
        Wenn du aber das Modul "use lib "/add/another/path"" nutzt dann macht das lib das alles schon für dich. Auch haben andere ja schon genannt wo es wichtig sein kann, zum Beispiel beim "FindBin" Modul.
        
        Daher halt noch die aussage das wenn man halbwegs "Modern" Programmiert das man soetwas selten bis gar nicht mehr benötigt.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +14 replies
        
        Escape
        
        2010-01-09 23:37
        
        User since
        2008-07-24
        312 Artikel
        BenutzerIn
        
        2010-01-09T15:40:38 sid burn
        
        Code (perl): (dl )
        
        1 2
        
        push @INC, '/add/another/path'; use My::Own::Module;
        
        Dann aber wohl besser unshift @INC, [...]
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        +13 replies
        
        sid burn
        
        2010-01-10 20:43
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Und was soll daran besser sein?
        Es spielt letztendlich keine Rolle ob man den Path am anfang oder am ende des Arrays hinzufügt.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        pq
        
        2010-01-10 21:04
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ausser es handelt sich um ein modul, dass schon in einem der existierenden pfade liegt. dann macht die reihenfolge einen unterschied.
        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
        
        +11 replies
        
        Escape
        
        2010-01-11 00:11
        
        User since
        2008-07-24
        312 Artikel
        BenutzerIn
        
        2010-01-10T19:43:02 sid burn
        Und was soll daran besser sein?
        Es spielt letztendlich keine Rolle ob man den Path am anfang oder am ende des Arrays hinzufügt.
        
        Ist zwar nur ein sehr kleiner Geschwindigkeitsvorteil, aber immerhin ...
        Kleinvieh macht auch Mist :-)
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        MatthiasW
        
        2010-01-11 00:32
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Naja, passiert ja alles zur Compile-time, und der Vorteil ist wahrscheinlich so gut wie nicht messbar.
        Ansonsten verliert man die Geschwindigkeit dann wenn man ein Modul lädt, dass an anderer Stelle gespeichert ist.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +9 replies
        
        sid burn
        
        2010-01-11 00:34
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Kurz gesagt. Kein Vorteil...
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +8 replies
        
        renee
        
        2010-01-11 09:05
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Doch, siehe pq's Antwort. Das ist eine Sache, die man nicht vernachlässigen sollte...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +7 replies
        
        sid burn
        
        2010-01-11 10:14
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Was hat das mit dem Thema zu tun?
        
        Ich gehe davon aus das man kein vorhandes Modul überschreibt. Die Frage ist simpel welchen Vorteil ein unshift gegenüber push hätte wenn man ein eigenes Modul geschrieben hat und den Pfad dazu einbinden möchte. Das mit "höherer" Performance zu erklären ist einfach nur albern.
        
        Vorallem da noch jedes andere Modul das man dann lädt ein Pfad mehr hat, sprich beim eigenen Modul wäre es von mir aus 2 nanosekunden einmalig beim starten schneller, bei allen anderen Modulen ist es dann einmalig 2 nanosekunden langsamer.
        
        Von daher, kein Vorteil.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        renee
        
        2010-01-11 10:34
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2010-01-11T09:14:32 sid burn
        Ich gehe davon aus das man kein vorhandes Modul überschreibt.
        
        Warum nicht? Ich habe schon häufiger aus Testzwecken ein Module "Test" (package Test;) geschrieben. Oder der Fall, wo Ovid und ich am gleichen Tag zur gleichen Zeit auf die Idee gekommen sind, ein Modul Sub::Called zu schreiben - ohne voneinander zu wissen. Wenn Ovid sein Modul benutzt hätte -> alles wunderbar. Jemand aus der Firma installiert mein Modul -> Ovids Programm würde "auf einmal" nicht mehr funktionieren... Mit "unshift" würde es immer noch funktionieren.
        
        So weit hergeholt sind solche Szenarien nicht.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +2 replies
        
        pq
        
        2010-01-11 13:20
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        wenn ich auf einer maschine nicht root bin und trotzdem eine neuere version eines moduls benutzen möchte/muss als die installierte. das ist nun wirklich ein häufiger fall.
        
        es wird auch einen grund haben, dass use lib unshift benutzt.
        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
        
        GwenDragon
        
        2010-01-11 13:41
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Ja, sowas musste ich leider schon öfters mal für Kunden anwenden, deren Provider eine ältere, defekte Version von ein paar Packages hatten.
        
        Nicht immer ist überall alles aktuell oder fehlerfrei in Bezug auf die Packages.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        Escape
        
        2010-01-11 15:38
        
        User since
        2008-07-24
        312 Artikel
        BenutzerIn
        
        2010-01-11T09:14:32 sid burn
        Das mit "höherer" Performance zu erklären ist einfach nur albern.
        
        Andere Meinungen als 'albern' zu bezeichnen ist nicht nur frech sondern zudem zutiefst ignorant.
        
        Daneben ...
        so geht man nicht miteinander um!
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        bianca
        
        2010-01-11 15:55
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-01-11T14:38:03 Escape
        Andere Meinungen als 'albern' zu bezeichnen ist nicht nur frech sondern zudem zutiefst ignorant.
        
        Stimmt. Aber ich glaube, hier ging das Adjektiv eher auf den Sachverhalt zurück, dass man tatsächlich wohl kaum messbar höhere Performance dadurch erreichen dürfte, dass ein Pfad in @INC weiter "vorne" steht.
        So zumindest wirkte es bisher auf mich als "Beobachter".
        Man kann alles persönlich nehmen, muss man aber nicht...
        10 print "Hallo"
        20 goto 10
        
        sid burn
        
        2010-01-11 18:08
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        2010-01-11T14:38:03 Escape
        Das mit "höherer" Performance zu erklären ist einfach nur albern.
        Andere Meinungen als 'albern' zu bezeichnen ist nicht nur frech sondern zudem zutiefst ignorant.
        
        Das hat nichts mit einer Meinung zu tun. Entweder ist es schnell oder langsam soetwas ist messbar. Und die Performance zu nennen die Pfade vorne oder einzufügen ist einfach ein alberner grund. Es würde mich wundern wenn dies überhaupt millisekunden erreicht und selbst wenn spielt es keine Rolle. Ein Spruch wie "kleinvieh macht auch mist" passt einfach nicht. Ob du das nun frech oder ignorant findest ist mir da ziemlich egal.
        
        Quote
        Daneben ...
        so geht man nicht miteinander um!
        
        Heul doch! ;)
        
        Tut mir leid, aber derzeit ist es wohl total "in" in diesem Forum das sich jeder schnell wie eine beleidigte Leberwurst aufführt und dann herumnörgelt das ja ständig nur Stress im Forum ist. Wenn du meinen Satz als beleidigend findest dann kann ich dir da auch nicht mehr helfen. Auser zu hoffen das pq bald eine ignore Liste einbaut und das du mich blocken kannst.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- bianca
  
  2010-01-06 16:09
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Nur eine Idee: mit fork() einen Sohn erzeugen, der dann weiter läuft für die Ende-Arbeiten?
  Hätte den Vorteil, dass weder Unter- noch Hauptscript drauf warten würden.
  10 print "Hallo"
  20 goto 10

View all threads created 2010-01-06 16:02.