On Tue, Aug 16, 2005 at 09:04:22AM +1000 Sisyphus wrote:
>
> ----- Original Message -----
> From: "Reinhard Pagitsch" <[EMAIL PROTECTED]>
>
> [snip]
>
> >
> > Sure, but what have I to do to get it in my XSUB? In a pure Perl
> > script/module it is no problem, but what are the functions I have to use
> > in my C/C++ function?
> >
>
> Yuk .... I would probably have a pure perl subroutine perform the task, and
> have the XSUB access that subroutine via a callback. (See the examples in
> perldoc perlcall).
>
> Perhaps there's a better way - if there is, I'm unaware of it.
It can be done from XS just as easily:
HV *config;
eval_pv("require Config;", FALSE);
config = get_hv("Config::Config", FALSE);
The fact that %Config::Config is a tied hash shouldn't make a
difference.
> Are you sure you need to do this ?
I am wondering about that myself, though.
Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($m+=8)<=200);
