Thread Lebensdauer von / Zugriff auf Perl-Variablen (3 answers)
Opened by warp at 2009-04-02 22:52

warp
 2009-04-02 22:52
#120225 #120225
User since
2009-03-25
5 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich mache gerade meine ersten Schritte beim Ausführen von Perl aus C++ heraus. Eigentlich sieht es so aus, als ob jeder Befehl erfolgreich ausgeführt wird, aber aufeinander aufbauende Befehle scheinen nicht zu funktionieren.

mein Code:
Code (cpp): (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

#include "stdafx.h"
#include "EXTERN.h"
#include "perl.h"

static PerlInterpreter *my_perl;

EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
EXTERN_C void boot_Win32CORE (pTHX_ CV* cv);

EXTERN_C void xs_init(pTHX)
{
        char *file = __FILE__;
        dXSUB_SYS;

        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
        newXS("Win32CORE::bootstrap", boot_Win32CORE, file);
}

int _tmain(int argc, _TCHAR* argv[])
{
        int iMyArgC = 4;
        char *embedding[] = { "Perl-Test.exe", "-e", "0", "--" };
        
        PERL_SYS_INIT(&iMyArgC, (char***) &embedding);
        my_perl = perl_alloc();
        perl_construct( my_perl );
        perl_parse( my_perl, xs_init, iMyArgC, (char**) embedding, (char **)NULL );
        perl_run( my_perl );

        SV* pl;
        pl = eval_pv( "my $a = \"Ich existiere.\"; defined $a or die;", TRUE );
        pl = eval_pv( "defined $a or die;", TRUE );
...


Leider wird das Programm in der letzten Zeile beendet.

Beim Durchsteppen mit dem Debugger sehe ich, dass die erste Perl-Zeile (my $a = ...) noch ausgeführt wird. Beim nächsten Befehl aber wird das Programm abrupt beendet. Also ist $a wohl dann nicht mehr definiert, oder?

Kann mir jemand das Problem erklären? Leben Variablen (hier $a) etwa nur während eines eval_pv()-Aufrufs? Kennt der nächste Aufruf den Ergebniszustand des vorherigen etwa nicht?
Last edited: 2009-04-03 11:32:07 +0200 (CEST)

View full thread Lebensdauer von / Zugriff auf Perl-Variablen