I would try to avoid self written loops and use Perl builtins like
map grep for it if has to be efficient:
(untested)
#my @files2del = map { ($hash{$_}->{Size} > $sizelimit ? $_ : () } key
+s %hash;
my @files2del = grep { $hash{$_}->{Size} > $sizelimit } keys %hash;
delete @hash{@files2del}; # deletes paths from hash
unlink @files2del; # deletes files from disc
Also:
Like
moritz already pointed out:
cmp isn't what you want but
<=>.
Keep your hash key names all lowercase as long you don't have a good reason to do otherwise.
Update: Like salsa wrote (while I wrote my post): the use of grep instead of map is better in this case. See perlfunc for both.
Update 2: Thanks moritz, I always appreciate all feedback. In this case you were just replying faster than I was updating. :-)
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.