topic Re: Help with Perl in Operating System - HP-UX

Help with Perl

Yvonne Butler — Thu, 21 May 2009 10:04:39 GMT

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

Re: Help with Perl

James R. Ferguson — Thu, 21 May 2009 10:35:19 GMT

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...

Re: Help with Perl

Suraj K Sankari — Thu, 21 May 2009 10:49:36 GMT

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

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

Suraj

Re: Help with Perl

Yvonne Butler — Thu, 21 May 2009 11:18:34 GMT

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.

Re: Help with Perl

James R. Ferguson — Thu, 21 May 2009 11:28:40 GMT

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...

Re: Help with Perl

Yvonne Butler — Thu, 21 May 2009 12:03:28 GMT

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