Re^4: Looking for small csv files script question

in reply to Re^3: Looking for small csv files script question
in thread Looking for small csv files script question

Hi Dasgar

Thanks for your response - again. :-)

Question for you though, I'm still a newbie trying to decipher shortned subs, where would I put a print statement or say in your find (sub... line?

I'd like to actually see when it finds a suspect folder instead of waiting for it to finish before it displays the suspect folders. I have quite a number of folders and it does take a while to run.

Comment on Re^4: Looking for small csv files script question

Replies are listed 'Best First'.
Re^5: Looking for small csv files script question by PerlPlay (Novice) on Dec 05, 2013 at 06:35 UTC
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);` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom