So I'm afraid you are going to be disappointed, too.
Revisiting the node I just randomly (!) picked one of his posts
Please note the // for commenting and the variables inside qw//
This "code" looks a lot like from a retired PHP programmer who knows Perl only from cut and pasting.my $found = 1; my $cursor = $hashref; for my $key ( qw/$key1 $key2 $key3/ ) { if (exists( $cursor->{$key} ) { $cursor = $cursor->{$key}; } else { $found = 0; last; // NOT FOUND - QUIT LOOKING NOW } } . . . if ($found) { // $cursor REFERS TO THE ELEMENT THAT WAS FOUND ... }
Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Wikisyntax for the Monastery
In reply to Re^3: how do I use Win32::TieRegistry in a multi-platform program?
by LanX
in thread how do I use Win32::TieRegistry in a multi-platform program?
by perltux
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |