Re: Accessing Perl variable from XS

[Tassilo von Parseval]

On Wed, Apr 27, 2005 at 05:15:15PM +0200 Reinhard Pagitsch wrote:

> Hello,
> 
> I know there was sometimes a message where this was described, but I can 
> not find it. Maybe I am to stupid.
> 
> What I want is to write in a (global)variable in my .PM from my XS subs.
> 
> Can someone point me to the right place please?

With global you mean package variable?

Something like:

    SV *sv = get_sv("Global::Scalar", TRUE);
    AV *av = get_av("Global::Array", TRUE);
    HV *hv = get_hv("Global::Hash", TRUE);
    CV *cv = get_cv("Global::Sub", TRUE);

Tassilo
-- 
use bigint;
$n=71423350343770280161397026330337371139054411854220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($m+=8)<=200);