Re: Can the fully qualified name of a global variable be determined?

OK it's a hack. but it works out-of-the box since B::Deparse is core! =)

use B::Deparse;

package TST;
our $var;

package main;


$VARNAME='$var';

print B::Deparse->new()->coderef2text(eval "sub { $VARNAME }" );
[download]

OUTPUT:

{
    $TST::var;
}
[download]

And the rest is ~~silence~~ regex! :)

Cheers Rolf

Comment on Re: Can the fully qualified name of a global variable be determined? Select or Download Code

Replies are listed 'Best First'.
Re^2: Can the fully qualified name of a global variable be determined? by LanX (Saint) on Jan 24, 2013 at 16:31 UTC
UPDATE But I don't know if this helps with exported vars, since IIRC "exporting" means copying a reference into the importing namespace. In other words: the current "fully qualified name" is from the importing namespace. If you wanna find the original full qualified name you have to parse all loaded STASHes, till you find the reference. You can find the namespaces by inspecting `%main::` `print join "\n", grep {/^.*::$/} keys %main::` --> `Tie:: utf8:: TST:: re:: DynaLoader:: mro:: strict:: Regexp:: Term:: UNIVERSAL:: overload:: Data:: IO:: Exporter:: Internals:: warnings:: Config:: DB:: CORE:: attributes:: Scalar:: vars:: XSLoader:: B:: main:: Carp:: PerlIO:: O:: bytes::` [download] UPDATE or by checking `%INC` Cheers Rolf	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Can the fully qualified name of a global variable be determined?
by LanX (Saint) on Jan 24, 2013 at 16:31 UTC

UPDATE

But I don't know if this helps with exported vars, since IIRC "exporting" means copying a reference into the importing namespace. In other words: the current "fully qualified name" is from the importing namespace.

If you wanna find the original full qualified name you have to parse all loaded STASHes, till you find the reference. You can find the namespaces by inspecting %main::

print join "\n", grep {/^.*::$/} keys %main::

-->

Tie::
utf8::
TST::
re::
DynaLoader::
mro::
strict::
Regexp::
Term::
UNIVERSAL::
overload::
Data::
IO::
Exporter::
Internals::
warnings::
Config::
DB::
CORE::
attributes::
Scalar::
vars::
XSLoader::
B::
main::
Carp::
PerlIO::
O::
bytes::
[download]

UPDATE

or by checking %INC

Cheers Rolf

[reply]
[d/l]
[select]