Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^3: Symbolic references

by LanX (Canon)
on Apr 15, 2013 at 05:53 UTC ( #1028682=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Symbolic references
in thread Symbolic references

I've changed my code to be less terse and hopefully better understandable step by step.

> What if I may have a variable number of variables..

you can put a unlimited anount of elements into '$path' and it will work as long as the intermediate values really exist within the nested hashes (otherwise the result is undef).

> Is there a programatic way to read N variables into the reference?

??? what do you mean here with "reference"?

Cheers Rolf

( addicted to the Perl Programming Language)


Comment on Re^3: Symbolic references
Download Code
Re^4: Symbolic references
by Anonymous Monk on Apr 15, 2013 at 06:57 UTC
    I used the wrong word 'reference' it should have been variable. I've tried to impliment your code below, but I'm still lost...
    foreach $argnum (0..$#ARGV){ print "$ARGV[$argnum]\n"; my $path=$ARGV[$argnum]; @path=split /\//,$path; $node=node->{$_} for @path; print $node; } print "\n"; }
      got it! phew!
      foreach $argnum (0..$#ARGV){ $node=$ret; print "$ARGV[$argnum]\n"; @path=split /\//,$ARGV[$argnum]; print Dumper @path; #debugging helps! $node=$node->{$_} for @path; print $node; } print "\n"; }
      Thanks!
        Just a minor note: your way to iterate thru different arguments by index is rather cumbersome

        just do

        ~$ perl -E 'foreach $arg (@ARGV) { say split /\//,$arg }' 1/2 a/b/c 12 abc

        And plz consider using strict and warnings!

        Cheers Rolf

        ( addicted to the Perl Programming Language)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1028682]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2015-07-05 09:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (61 votes), past polls