All the Perl that's Practical to Extract and Report
use Perl Log In
Ovid (2709)
(email not shown publicly)
http://publius-ovidius.livejournal.com/
AOL IM: ovidperl (Add Buddy, Send Message)
Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.
Data::Dumper::Simple with no source filter :)
I think I should finalize this and publish this as Data::Dumper::Names.
#!/usr/bin/perl -l
use strict;
use warnings;
use Data::Dumper ();
use Scalar::Util 'refaddr';
use PadWalker 'peek_my';
sub Dumper {
my $pad = peek_my(1);
my %pad_vars;
while (my ($var, $ref) = each %$pad) {
$var =~ s/^[[:punct:]]/*/;
$pad_vars{address($ref)} = $var;
}
my @names;
my $varcount = 1;
foreach (@_) {
my $address = address($_);
# Naive. Expects they have no variables named/\$VAR\d+/
push @names, exists $pad_vars{$address}
? $pad_vars{$address}
: 'VAR' . $varcount++;
}
return Data::Dumper->Dump(\@_,\@names);
}
sub address {
refaddr $_[0] ? $_[0] : \$_[0];
}
my $foo = 1;
my @bar = (2,3);
my @baz = (qw/this that/);
print Dumper($foo, \@bar, @baz);
my $baz = 18;
sub test_scope { print Dumper($baz) }
test_scope;
__END__
$foo = 1;
@bar = (
2,
3
);
$VAR1 = 'this';
$VAR2 = 'that';
$baz = 18;
It does require that you pass arrays and hashes as references, but I thought of a way around that, too (it would take a fair amount of work, though. I'd have to walk through individual variables to find the right ones)
Unfortunately there's an easily fixed bug in PadWalker which might cause grief for folks.
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
Re: (Score:1)
Re: (Score:2)
It still won't work for everyone, though. PadWalker is fragile and relies on undocumented features in Perl. As a result, it tends to break. I asked P5P if a patch to Data::Dumper was worth considering and the consensus is "no" for these reasons. Thus, I'll either be maintaining the source filtered version and this version side by side or I will figure out how to shoehorn this into Data::Dumper::Simple as an "optional" interface.
Re: (Score:1)
Re: (Score:2)
Actually, I'd be happy about PadWalker being bundled with the core but I doubt that's going to happen any time soon.