Help for this page

Select Code to Download


  1. or download this
    use Config      qw( %Config );
use Devel::Peek qw( Dump );
...
Dump $s;
printf "%x\n", SvPV_force( $s );
Dump $s;
  2. or download this
    SV = PV(0x57565c72fee0) at 0x57565c75e0d0
  REFCNT = 1
...
  PV = 0x57565c785bc0 "abc"\0
  CUR = 3
  LEN = 16
  3. or download this
    use B qw( svref_2object );

...

my $s = "0123456789";
printf "%x\n", SvPVX( $s ) while $s =~ /\G./g;