You'll probably want to use something like grep /\.jpg/, readdir(DIR) to get your list of files. You might even want to sort them, as you go through, split off the back extension, and check the prefix.

You'll want to check to make sure your prefix is just made of digits. If not, figure out what you want to do with it. If so, sprintf("%06d", $var) for your new prefix and look into substr for getting the first three chars of that.

Then go ahead and make your sub-directories as needed, and make sure you already don't have the numbered file before you rename it. Since your original dir may have a 001234.jpg and 01234.jpg in it.

In reply to Re: File Name Pattern by lemming
in thread File Name Pattern by LostS

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.