>>>>> "register" == register <[EMAIL PROTECTED]> writes:
>> This might be more efficient still, since the list of keys
>> wouldn't need to be created:
>>
>> /add_\w+/ and print("Yippie!\n"), last while ($_, undef) = each %hash;
That's too much there...
/add_\w+/ and print("Yippie!\n"), last while $_ = each %hash;
"scalar each" is underutilized. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
