output of dumper

Replies are listed 'Best First'.
Re: output of dumper by tcf22 (Priest) on Mar 23, 2004 at 22:27 UTC
First off $9YT isn't a valid valiable name. Variables can start with letters and underscores only. Using Data::Dumper should get almost what you want. There are no my's and i'm not sure how to get them, or if it is even possible with Data::Dumper. `use strict; use warnings; use Data::Dumper; my $ER = 34; my $YT = 44; my $EE = 66; print Data::Dumper->Dump([$ER, $YT, $EE], [qw(ER YT EE)]); __OUTPUT__ $ER = 34; $YT = 44; $EE = 66;` [download] - Tom	[reply] [d/l]
Re: Re: output of dumper by hardburn (Abbot) on Mar 24, 2004 at 21:12 UTC
First off $9YT isn't a valid valiable name It is if you do enough tricks. `$ perl -MData::Dumper -le '$f = "9YT"; $$f = "foo"; print Data::Dumper +::Dumper(\%main::)' $VAR1 = { # snip '9YT' => {'::9YT'}, # snip };` [download] With symbol table lookups and symbolic refs, pretty much anything is possible in a Perl variable name. I don't know of a way to get lexicals to do this, though. ---- `: () { :\|:& };:` Note*: All code is untested, unless otherwise stated	[reply] [d/l] [select]
Re: output of dumper by hardburn (Abbot) on Mar 23, 2004 at 21:49 UTC
What have you tried so far? ---- `: () { :\|:& };:` Note: All code is untested, unless otherwise stated	[reply] [d/l]
Re: output of dumper by DamnDirtyApe (Curate) on Mar 25, 2004 at 05:44 UTC
This seems like what you want: `#! /usr/bin/perl use strict; use warnings; use Data::Dumper; my $str; do { local $/; $str = <DATA>; }; my $hash = { split /\s+/, $str }; print Dumper $hash; __DATA__ ER 34 9YT 44 EE 66` [download] _______________ DamnDirtyApe Those who know that they are profound strive for clarity. Those who would like to seem profound to the crowd strive for obscurity. --Friedrich Nietzsche	[reply] [d/l]


Welcome to the Monastery
	PerlMonks