Re: [FWP] Something like "grepfirst"

[merlyn@stonehenge.com (Randal L. Schwartz)]

>>>>> "John" == John Porter <jdporter@min.net> writes:

John> Randal wrote:
>> >>>>> "John" == John Porter <jdporter@min.net> writes:
>> 
John> sub first_existing_dir {
John> my $d=shift or die;
>> 
>> Fails if $_[0] eq "0";


John> Easy enough to fix, if that happens to be a problem for you.

John> Have anything *substantive* to say about my solution?

OK, recursion where iteration would do is a bit silly.  But this
*is* fwp. :)

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <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!

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe