How can I convert the stringified version of array reference to actual array reference in Perl?

by

Yes, you can do this (even without Inline C). An example:

use strict;
use warnings;

# make a stringified reference
my $array_ref = [ qw/foo bar baz/ ];
my $stringified_ref = "$array_ref";

use B; # core module providing introspection facilities
# extract the hex address
my ($addr) = $stringified_ref =~ /.*(0x\w+)/;
# fake up a B object of the correct class for this type of reference
# and convert it back to a real reference
my $real_ref = bless(\(0+hex $addr), "B::AV")->object_2svref;

print join(",", @$real_ref), "\n";

but don’t do that. If your actual object is freed or reused, you may very well
end up getting segfaults.

Whatever you are actually trying to achieve, there is certainly a better way.
A comment to another answer reveals that the stringification is due to using a reference as a hash key. As responded to there, the better way to do that is the well-battle-tested
Tie::RefHash.

More Related Contents:

  1. What is meaning of defined keyword [closed]
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. How can I use CPAN as a non-root user?
  11. Perl daemonize with child daemons
  12. How can I parse dates and convert time zones in Perl?
  13. Which one is good practice, a lexical filehandle or a typeglob?
  14. How do I tell if a variable has a numeric value in Perl?
  15. Using perl’s `system`
  16. Perl memory usage profiling and leak detection?
  17. How should I use the “my” keyword in Perl?
  18. Global symbol requires explicit package name
  19. How do I include functions from another file in my Perl script?
  20. How can I start an interactive console for Perl?
  21. What does =~ do in Perl? [closed]
  22. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  23. How do I tell what type of value is in a Perl variable?
  24. What should I use for a Perl script’s shebang line?
  25. How can I find memory leaks in long-running Perl program?
  26. Why do Perl variables need to start with $, %,@ (sigils)?
  27. Print lines from one file that are not contained in another file
  28. Perl DBD::Oracle Module installation
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment