Re: Looking for small csv files script question

FYI, -f does another stat. To save a stat() use '_':

sub csvfile {
  /\.csv$/ or return;
  stat;
  -f _ or return;
  -s _ < 5500 or return;
  push @files, $File::Find::name;
}
[download]

Comment on Re: Looking for small csv files script question Download Code

Replies are listed 'Best First'.
Re^2: Looking for small csv files script question by PerlPlay (Novice) on Dec 04, 2013 at 02:20 UTC
Thanks for replying, I'll give that a go as well.	[reply]