in reply to File::Find exit
I am assuming you are talking about the files in said dir being sorted alphabetically. With that you could alter the push to something along the lines of
Update: I've been thinking about my solution, and I think the latter one is more appropriate, as opposed to the first. Im sure a better search criterion to File::Find would be more efficient way to go about doing this.
push(@nod, $_) if m/^[a-cA-C]/;
return unless m/^[a-cA-C]/; push(@nod, $_);
use perl;
|
---|
In Section
Seekers of Perl Wisdom