37,719
社区成员
发帖
与我相关
我的任务
分享Perl中Data::Dumper处理后的Array少了一项？
代码如下：
#!/usr/bin/perl
use Data::Dumper;
$, = ',';
my @d1 = (1, 3);
my @d2 = (2, 4);
push @d1, \@d2;
push @d2, \@d1;
my $d = Dumper(\@d1, \@d2);
print $d;
eval $d;
print "@{$VAR1}\n@{$VAR2}";
输出结果：
$VAR1 = [
1,
3,
[
2,
4,
$VAR1
]
];
$VAR2 = $VAR1->[2];
1 3 ARRAY(0x2b25500)
2 4
第二项的输出结果为什么少了最后的一项引用？哪位大侠见过类似的问题请说明一下。谢谢。
#!/usr/bin/perl
use Data::Dumper;
$, = ',';
my @d1 = (1, 3);
my @d2 = (2, 4);
push @d1, \@d2;
push @d2, \@d1;
my $d = Dumper(\@d1, \@d2);
print $d;
eval $d;
print "@{$VAR1}\n@{$VAR2}";
输出结果：
$VAR1 = [
1,
3,
[
2,
4,
$VAR1
]
];
$VAR2 = $VAR1->[2];
1 3 ARRAY(0x2b25500)
2 4
第二项的输出结果为什么少了最后的一项引用？哪位大侠见过类似的问题请说明一下。谢谢。
...全文
请发表友善的回复…
发表回复
klbt 2003-09-27
- 打赏
- 举报
关注，帮你顶。
