sub callback { my ($found) = @_; print $found->filename, "\n"; return 0 if $found->pathname =~ $end_condition; return 1 if $found->pathname =~ $skip_condition; process($found); return 1; }
Constants would improve readability.
In reply to Re^2: What makes File::Find's interface so commonly hated
by ikegami
in thread What makes File::Find's interface so commonly hated
by demerphq
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |