Well, if you want to make a meaningful comparison then you need to rewrite the OP’s code such that it follows your F::F code’s style. The resulting loop body is half as long as the one which has to handle $File::Find::prune. But I didn’t consider that that gets lost in the extra setup/teardown for the readdir code.
Nevertheless I stand by my opinion that using F::F for this purpose shrouds the intent; even more so now that I’ve actually seen the working code on screen. (What with . being another unrelated case to handle.) The readdir code OTOH is straightforward.
As for the performance, that was actually the last of my concerns (take note of the order of arguments). I just mentioned it to say that I see no metric by which this approach might be preferrable: not clarity; not brevity; not even speed if nothing else.
In reply to Re^6: Finding Oldest File in a Directory
by Aristotle
in thread Finding Oldest File in a Directory
by awohld
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |