laziness, impatience, and hubris | |
PerlMonks |
Re: Interesting line which I read from Monk's snippetsby davidrw (Prior) |
on Jan 31, 2006 at 04:39 UTC ( [id://526658]=note: print w/replies, xml ) | Need Help?? |
First, start with substr($0, 0, 1) ... perlvar tells us that $0 is the name of the program running .. perlfunc tells us about substr, and so this clause is getting the first letter of the program being run. Now, let's look at {qw(a - b = c ~ d ^)} .. This is creating a hashref, with a, b, c, d as the keys and the characters: - = ~ ^ as the values.. to see this, do:
And putting those together, you end up w/$pat being one of those four values characters if the first letter of $0 is a, b, c, or d. Otherwise it will be undef. why is this being done? I dunno -- would have to see the context.
In Section
Seekers of Perl Wisdom
|
|