Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: file size monitoring

by kennethk (Abbot)
on Sep 03, 2013 at 17:50 UTC ( #1052156=note: print w/replies, xml ) Need Help??


in reply to file size monitoring

What have you tried? What worked? What didn't? We're happy to help design and debug, but we won't do your work for you.

I'm not familiar with 'HP OVO product' and so don't know the necessary reporting formats, and didn't see any affiliated modules on CPAN. I also don't know what definition of megabyte you are using. I would expect -s will be useful, as will opendir and readdir. That chunk may look something like (untested):

my $dir = 'somewhere'; opendir my $dh, $dir or die $!; while (my $file = readdir $dh) { print "Too big: $file\n" if -s "$dir/$file" > 1024**2 }

You may also want to look at File::Find.


#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1052156]
help
Chatterbox?
[marioroy]: stevieb :)
[marioroy]: that is funny, made me smile. miss those days
[marioroy]: thank you, humor of the day stevieb++
[1nickt]: Sad that so much of our humour these days is dry, wry, gallows humor :-/
[1nickt]: One of the great human characteristics .... to laugh in the face of doom :-)

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2017-03-26 18:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (315 votes). Check out past polls.