And what about this:
#!perl -w
use strict;
my $scalar = 'dfaure';
my @array = (
'Data',
'Dumper',
'Simple',
'Rocks!'
);
my %hash = (
'it' => 'does',
'I' => 'hope',
'at' => 'least'
);
sub MyDumper {
my @values;
for (@values = @_) { s/^([%@])/\\$1/; $_ .= ','; }
my @names;
for (@names = @_) { s/^[%@]/*/; s/^\$//; }
return eval "use Data::Dumper;Data::Dumper->Dump([@values],[qw/@na
+mes/])";
}
print MyDumper(qw/$scalar @array %hash/);
____
HTH, Dominique
My two favorites:
If the only tool you have is a hammer, you will see every problem as a nail. --Abraham Maslow
Bien faire, et le faire savoir...