Your use of chomp is unnecessary. Read perldoc -f chomp, as it applies to stripping line endings from text files. readdir() doesn't return files names with a CR/LF on the end.

Your use of stat() is also unnecessary. You aren't capturing it's return value

To clarify the previous response:

if (-f $filepath) says "if $filepath is a file then do everything in the following block of code"

You probably want: 

if (-f $filepath && (-M $filepath > $daysToPurge))

[download]
Which says "if $filepath is a file AND it's mod time is more than 3 days agao . . ."

Can't say why it worked on the first machine. It shouldn't have.

And just a tidbit that you might find helpful. It has nothing to do with perl but applies to the art of SysAdmin.

Naming files as somefile-2003-Jan... isn't going to sort nicely when you do a DIR command or view the directory in explorer. That's because $somefile-2003-Feb.. will appear before the Jan file, etc. It's better to use numeric months for that reason. Perhaps I'm just anal. . .

In reply to Re: Delete Files by Cabrion
in thread Delete Files by windy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.