发现Perl应用程序当前定义的所有变量的最佳方法是什么？

发布时间：2020-12-15 21:17:02 所属栏目：大数据来源：网络整理

导读：我正在寻找最好,最简单的方法来做类似的事情： $var1="value";bunch of code.....**print allVariablesAndTheirValuesCurrentlyDefined;** 解决方法包变量？词汇变量？可以通过符号表查找包变量.试试Devel::Symdump： #!/path/to/perluse Devel::Symdump;p

我正在寻找最好,最简单的方法来做类似的事情：

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

解决方法

包变量？词汇变量？

可以通过符号表查找包变量.试试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();

词法变量有点小问题,你不会在符号表中找到它们.可以通过属于他们定义的代码块的“暂存器”查找它们.尝试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);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!