我正在尝试创建一个日志,该日志列出出于调试目的从软件包中导出的所有perlvar。我无法从@EXPORT取消引用工作。
我有一个看起来像这样的包裹:
package my_lib;
use strict;
no strict 'refs';
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
our @ISA qw(Exporter);
our @EXPORT = qw();
use Exporter;
our $var1 = 1;
our $var2 = 5;
our $var3 = $var1 + $var2;
our @vars = [$var1, $var2];
my @my_exported = qw(
$var1
$var2
$var3
@vars
);
sub dump_vars {
foreach my $entry (@my_exported) {
# my $value =~ s/(\$\w+)/$1/eeg;
my $value =~ s/\$(\w+)/${$1}/g;
print "$entry = $value\n";
}
}
push(@EXPORT, @my_exported);
push(@EXPORT_OK, qw(&dump_vars));
1;
然后,我有了perl脚本来生成包含程序包中所有值的日志:
#!/usr/bin/perl
use my_lib qw(dump_vars);
#dump_vars();
eval dump_vars();
我像这样使用此脚本:
gen_vars_lib_log.pl > vars_lib.log
我希望日志看起来像这样:
$var1 = 1
$var2 = 5
$var3 = 6
@vars = [1, 5]
但是我得到了:
$var1 =
$var2 =
$var3 =
@vars =
有人可以帮我看看我在想什么吗?我已经读了很多关于评估字符串中嵌入的变量的页面,但是我无法使它正常工作。
替换运算符的用法如下:
$var_to_modify =~ s/.../.../
因此,以下尝试修改新创建的变量$value
的值。
my $value =~ s/\$(\w+)/${$1}/g;
始终使用use strict; use warnings;
!它将捕获该错误。
(是的,我知道您需要在此处使用no strict 'refs';
,尽管您应将其范围限制在需要它的代码部分。)
第二个问题是您甚至尝试处理数组。但是,在甚至尝试执行此操作之前,您必须意识到以下内容创建了一个具有单个元素的数组:
@vars = [ $var1, $var2 ]; # Assign 1 scalar, a reference to an array to @vars
您想要的假定对象
@vars = ( $var1, $var2 ); # Assign 2 scalars to @vars
我将使用Data :: Dumper转储值。
package my_lib;
use strict;
use warnings;
use Data::Dumper qw( Dumper );
use Exporter qw( import );
our $var1 = 1;
our $var2 = 5;
our $var3 = $var1 + $var2;
our @vars = ( $var1, $var2 );
our @EXPORT = qw(
$var1
$var2
$var3
@vars
);
our @EXPORT_OK = qw( dump_vars );
sub dump_vars {
no strict qw( refs );
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Terse = 1;
for my $entry (@EXPORT) {
my $value;
if ($entry =~ /^\$(\w+)\z/) {
$value = Dumper(${ \$$1 });
}
elsif ($entry =~ /^\@(\w+)\z/) {
$value = Dumper(\@$1);
$value =~ s/^\[/(/;
$value =~ s/\]\z/)/;
}
elsif ($entry =~ /^\%(\w+)\z/) {
$value = Dumper(\%$1);
$value =~ s/^\{/(/;
$value =~ s/\}\z/)/;
}
else {
next;
}
print "$entry = $value\n";
}
}
1;
输出:
$ perl -I. -e'use my_lib qw( dump_vars ); dump_vars()'
$var1 = 1
$var2 = 5
$var3 = 6
@vars = (1,5)