# Subroutine that takes a filename of the form DDMM.xxx and returns
# a filename of the form DDMMYYYY.xxx.

sub alt_name {
    local $_ = shift;
    die "Illegal filename" unless my ($dd, $mm, $ext) = /^(\d\d)(\d\d)
+.(.+)$/;

    my ($day, $month, $year) = (localtime) [3 .. 5];
    $year += 1900;
    $month ++;

    if ($mm > $month || $mm == $month && $dd > $day) {
        # Assume file dates from last year.
        $year --;
    }

    sprintf "%02d%02d%04d.%s" => $dd, $mm, $year, $ext;
}

[download]
As you see, the code doesn't add an 'A' or some other letter, but adds a year. It assumes that a date with a later month than the current month, or with a later day if the month is the current month is a file from last year (probably mostly important during your first run in January), else it's a file from this year. Of course, this scheme will fail if you wait more than a year between batches. But if you do, files in your Xwords directory might be overwritten anyway.

The reason I picked a year and not a letter is that otherwise you need to keep some state to see when you need to switch to the next letter. Now we just borrow the state from your OSses clock.

-- Abigail

In reply to Re: File renaming and removal to a subdirectory by Abigail
in thread File renaming and removal to a subdirectory by Joes

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.