Re^5: Symbolic references

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";
}
[download]

Thanks!

Comment on Re^5: Symbolic references Download Code

Replies are listed 'Best First'.
Re^6: Symbolic references by LanX (Saint) on Apr 15, 2013 at 13:16 UTC
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` [download] And plz consider using strict and warnings! Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]