Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: keys %::

by Sec (Scribe)
on Jul 20, 2005 at 12:43 UTC ( #476484=note: print w/replies, xml ) Need Help??


in reply to Re^2: keys %::
in thread keys %::

I have improved this script a bit, it can recurse into symbol tables now.
I learned something new today. Internals::SvREADONLY can reset the readonly flag :)
my $table=shift||''; $table.="::"; dumptable($table); sub dumptable{ my $table=shift; my $indent=shift||''; while (my ($key,$value)=each %$table ){ print qq!$indent"$key":\n!; if(defined(*{$value}{SCALAR}) and defined(${ *{$value}{SCALAR}})){ print "$indent\tSCALAR: ",${*{$value}{SCALAR}}, "\n"; } if(defined( *{$value}{ARRAY} ) ) { print "$indent\tARRAY: ", join ", ",@{*{$value}{ARRAY}}, "\n"; } if(defined( *{$value}{HASH} ) ) { if ($key =~ /::$/){ print "$indent\tSYMTAB:\n"; dumptable($value,"\t".$indent) if (*{$value}{NAME} ne "main::"); }else{ print "\tHASH:\n"; while(my ($k, $v) = each %{ *{$value}{HASH} } ) { print "$indent\t\t$k => $v,\n" } } } if(defined( *{$value}{CODE} ) ) { print "$indent\tCODE: ",*{$value}{CODE},"\n"; }; if(defined( *{$value}{IO} ) ) { print "$indent\tIO: ",*{$value}{IO},"\n"; }; print "\n" } }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://476484]
help
Chatterbox?
[stevieb]: choroba my GPS home device is done, at least prototype v1 is. I'm just making sure all of my code does what it says now
[stevieb]: I test/prototype code on my Pi, then I migrate it over to Arduino when it's ready (if that's a better platform for what I'm doing). The whole RPi stuff was for learning at first, then it snowballed. I'm just trying to get my in-house CI...
[stevieb]: ...done, which obviously requires a specific hardware setup.
[stevieb]: I don't write tests for the lower-level distributions (ie. ICs, sensors etc) within those distributions, I have all tests in a master distribution which encompasess all of the sub-modules

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2017-06-25 22:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (572 votes). Check out past polls.