my $variables

[George Mpouras]

is there any way to catch the "my" variable names like the "our" variables ?

my $var_001 = 'hello';
our $var_002 = 'world';
foreach (grep /var/, keys %{__PACKAGE__.::}) {print "$_
",${__PACKAGE__.::}{$_},"\n"}

 

[Peter Makholm]

is there any way to catch the "my" variable names like the "our" variables ?

Yes, with the peek_my function from PadWalker.

PadWalker has some interesting use cases, but if you need it in you
daily development then you are either hacking perl internals or doing
something wrong.

//Makholm

 

[George Mpouras]

PadWalker does not help, you have to know the variable name. I want all the
my ... to decide what to do after I know their names. There is product that
inside their C code they have warp Perl

 

[Peter Makholm]

PadWalker does not help, you have to know the variable name. I want all the
my ... to decide what to do after I know their names.

I have no idea what you are looking for if it isn't just

keys %{ my_peek(0) };

//Makholm