Help with Perl

[Yvonne Butler]

Hi

Some very kind forum members helped me put together this perl command below which I'm using to tell me how many files are in a directory which are 15 minutes older than the system date:

perl -MFile::Find -le '$path=shift||qq(.);find(sub{print $File::Find::name if -f $_ && -M _ >= ((15*60)/(60*60*24))},$path)' /oraother/tes/comms/outtray | wc -l

But what I need now is to modify this command to find out how many files that are not of a "0" byte size in a given directory. I don't know Perl I'm afraid so don't know where to start. Any suggestions would be very appreciated.

Thanks

[James R. Ferguson]

Hi Yvonne:

This is quite simple:

# perl -MFile::Find -le '$path=shift||qq(.);find(sub{print $File::Find::name if -f $_ && -s _},$path)'

...returns the non-zero size files. Change the '-s' to '-z' to return files of zero size.

For things like this, Perl is probably overkill. You could simply do:

# find . -type f ! -size 0c

...to return files with size greater than zero and:

# find . -type f -size 0c

...to return files of size zero.

Regards!

...JRF...

[Suraj K Sankari]

Hi,
To find out all zero bytes file use find command

#find /home -type f -size 0c -exec ls -l {} \;

Suraj

[Yvonne Butler]

Ahh I haven't explained myself properly, what I actually need to still to get a total number of files in a given directory which are not of a zero byte size and which are 15 minutes or more older than the system date.

[James R. Ferguson · Accepted solution]

Hi (again) Yvonne:


> what I actually need to still to get a total number of files in a given directory which are not of a zero byte size and which are 15 minutes or more older than the system date.

Ah. that makes better sense:

# perl -MFile::Find -le '$path=shift||qq(.);find(sub{print $File::Find::name if -f $_ && -s _ && -M _ >= ((15*60)/(60*60*24))},$path)'

...which simply adds (ands) the test for file size that I first showed.

Regards!

...JRF...

[Yvonne Butler]

Wow JRF you're good - that's it exactly, thanks yet again!