in reply to Re^4: Looking for small csv files script question
in thread Looking for small csv files script question
Worked it out for myself...
find (sub { m/\.csv$/i && -s $_ < 5500 and print "$File::Find::name\n" + and push @files, $File::Find::name }, $dir);
|
|---|