Acme::Pointer - We can access to data using address as the string
#!/usr/bin/env perl use strict; use warnings; use utf8; use feature qw/say/; use Data::Dumper; use Acme::Pointer; my $a = { a => 20, b => [1,2] }; my $b = "$a"; say $b; print Dumper deref($b); say "-" x 10; if ($b =~ /[A-Z]+\((.*)\)/) { print Dumper pointer($1); }
Acme::Pointer by passing the address as the string to the function, you can access that address.
THIS MODULE IS UNSAFE. DO NOT USE THIS IN PRODUCT.
deref($ref :Str)
You can pass the following string to this function.
CODE(0x7fd541a84a30) HASH(0x7fd541a84a30) ARRAY(0x7fd541a84a30) SCALAR(0x7fd541a84a30)
If a character string other than these is passed, undef will be returned.
pointer($addr :Str)
You can pass the string like "0x7fd541a84a30" to this function.
Copyright (C) K.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
K <x00.x7f@gmail.com>
To install Acme::Pointer, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Acme::Pointer
CPAN shell
perl -MCPAN -e shell install Acme::Pointer
For more information on module installation, please visit the detailed CPAN module installation guide.