Persistent Running: Teil 2 (Allgemeines zu Perl)

esskar

2005-07-18 18:07

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Hab mit Hilfe von perldoc perlembed ein Programm geschrieben, welches vorkompilierte Instancen von Perl Scripten hält und diese immer wieder "neu" ausführt => bringt sehr viel Speed. Das Ding wird in unserem HTTP Server zum Einsatz kommen und wird quasi FastCGI (etcpp.) Aquivalent.

Was ich jedoch nicht geschaft habe, ist das Handling des exit-Befehls in Perl. Wenn ich in Perl exit (oder auch die) Aufrufe, verabschiedet sich auch mein C++ Programm.

Jemand eine Idee, wie ich das verhindern kann?

Strat

2005-07-18 18:20

User since
2003-08-04
5246 Artikel
ModeratorIn

wegen die: hilft vielleicht ein $SIG{_ _DIE_ _} = \&SigDie; - Handler? (ohne Leerzeichen zwischen den _ _)

wegen exit: dazu faellt mir gerade nichts besonders sinnvolles ein; vielleicht exit irgendwie ueberschreiben (analog zu dem mod_perl oder Tk-exit?)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

esskar

2005-07-18 18:24

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

könnt ich wohl machen...
Mein "Interpreter" wird eh nur funktionieren, wenn man das dafür geschrieben Perl-Module einbindet... mal sehen... danke

ptk

2005-07-18 20:04

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Man kann wohl CORE::exit ueberschreiben. Tk und mod_perl machen das.

esskar

2005-07-18 20:14

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

kennst du die stelle, an der Tk das macht?

ptk

2005-07-18 20:52

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Code: (dl )

*CORE::GLOBAL::exit = \&exit;

Direkt in Tk.pm

esskar

2005-07-18 20:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

aso; und die exit funktion existiert dann wohl irgendwo im C code... danke; mal schauen

sri

2005-07-18 23:01

User since
2004-01-29
828 Artikel
BenutzerIn

Warum nich PPerl?

http://mojolicio.us/

esskar

2005-07-18 23:52

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=sri,18.07.2005, 21:01]Warum nich PPerl?[/quote]
weil es unter windows nicht kompiliert

esskar

2005-07-19 14:34

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hab jetzt mal die mod_perl quellen durchstöbert;
in mod_perl.c findest sich folgende Stelle:

Code: (dl )

/* *CORE::GLOBAL::exit = \&Apache::exit */
    if(gv_stashpv("CORE::GLOBAL", FALSE)) {
    GV *exitgp = gv_fetchpv("CORE::GLOBAL::exit", TRUE, SVt_PVCV);
    GvCV(exitgp) = perl_get_cv("Apache::exit", TRUE);
    GvIMPORTED_CV_on(exitgp);
    }

aber Apache::exit finde ich nirgends