Question

I am looking for best, easiest way to do something like:

$var1='value'; bunch of code..... **print allVariablesAndTheirValuesCurrentlyDefined;** 

Answer 1

Package variables? Lexical variables?

Package variables can be looked up via the symbol table. Try Devel::Symdump:

#!/path/to/perl  use Devel::Symdump;  package example;  $var = 'value'; @var = ('value1', 'value2'); %var = ('key1' => 'value1', 'key2' => 'value2');  my $obj = Devel::Symdump->new('example');  print $obj->as_string(); 

Lexical variables are a little tricker, you won’t find them in the symbol table. They can be looked up via the ‘scratchpad’ that belongs to the block of code they’re defined in. Try PadWalker:

#!/path/to/perl  use strict; use warnings;  use Data::Dumper; use PadWalker qw(peek_my);  my $var = 'value'; my @var = ('value1', 'value2'); my %var = ('key1' =>  'value1', 'key2' => 'value2');  my $hash_ref = peek_my(0);  print Dumper($hash_ref);