Re^2: Getting the PV pointer from a SV

Awesome, thanks for the 32/64-bit portability code.

Pack/unpack "p" and "P" is such a mysterious template code to me... I wonder if Devel::PeekPoke::peek( ptr, len ) could be written also with pack/unpack... I wouldn't know where to put the length though, maybe in the template somewhere appended to the letter 'p'.

Comment on Re^2: Getting the PV pointer from a SV

Replies are listed 'Best First'.
Re^3: Getting the PV pointer from a SV by ikegami (Patriarch) on Mar 09, 2016 at 17:28 UTC
Not only can it be done, that's exactly what Devel::PeekPoke::PP does. `$ perl -E' use Config qw( %Config ); my $ptr_size = $Config{ptrsize}; my $ptr_format = $ptr_size == 4 ? "L" : $ptr_size == 8 ? "Q" : die("Unrecognized pointer size"); sub pv { unpack($ptr_format, pack("p", $_[0])) } sub peek { unpack('P'.$_[1], pack($ptr_format, $_[0])) } my $s = "abcdef"; my $ptr = pv($s); say peek($ptr+1, 4); ' bcde` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Getting the PV pointer from a SV
by ikegami (Patriarch) on Mar 09, 2016 at 17:28 UTC

Not only can it be done, that's exactly what Devel::PeekPoke::PP does.

$ perl -E'
    use Config qw( %Config );
    my $ptr_size = $Config{ptrsize};
    my $ptr_format =
       $ptr_size == 4 ? "L" :
       $ptr_size == 8 ? "Q" :
       die("Unrecognized pointer size");

    sub pv { unpack($ptr_format, pack("p", $_[0])) }
    sub peek { unpack('P'.$_[1], pack($ptr_format, $_[0])) }

    my $s = "abcdef";
    my $ptr = pv($s);
    say peek($ptr+1, 4);
'
bcde
[download]

[reply]
[d/l]