Re: Re: %main:: and my'd vars

Here's a small example of how you might use PadWalker to look at the variables in the current lexical scope

use PadWalker qw(peek_my);
use Data::Dumper;

my $s = "a string";
{
    my @a = qw(an array);
    print Dumper( peek_my(0) );
}
my %h = qw(a hash);

print Dumper( peek_my(0) );

__output__

$VAR1 = {
          '@a' => [
                    'an',
                    'array'
                  ],
          '$s' => \'a string'
        };
$VAR1 = {
          '%h' => {
                    'a' => 'hash'
                  },
          '$s' => \'a string'
        };
[download]

Funky huh?
HTH

_________ broquaint

Comment on Re: Re: %main:: and my'd vars Download Code

Replies are listed 'Best First'.
Re^3: %main:: and my'd vars by abhay180 (Sexton) on May 11, 2023 at 20:06 UTC
`use PadWalker qw(peek_my); do "xyz"; #this file has many hashrefs defined foreach $item (keys %{peek_my(0)}) { print $item,"\n"; print $item if (ref $item eq ref {}); }` [download] I dont get any o/p . why is this so? Code in "xyz" file: `$a1 = { 'p' => 1, 'q' => 2, }; $a2 = { 'p' => 1, 'q' => 2, };` [download]	[reply] [d/l] [select]
Re^4: %main:: and my'd vars by LanX (Saint) on May 11, 2023 at 20:44 UTC
you didn't use `my` for your variables. update `use v5.12.0; use warnings; use PadWalker qw/peek_my peek_our/; my $a1 = {}; our $a2 = {}; for my $space ( peek_my(0),peek_our(0) ){ for my $item (keys %{$space}) { say $item if (ref ${$space->{$item}} eq "HASH"); } }` [download] Cheers Rolf _{(addicted to the 𐍀𐌴𐍂𐌻 Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]

update