I would create automatically a zip for each customer (customerxxx.zip)containing his own files, grouping the entire set of files.
So you'd iterate the customers. All the known customers? Or just the distinct customers you can discern from the filenames in the "big directory"?

One approach (update: implemented by ikegami below) would be as follows:

Use opendir/readdir/closedir to find all the filenames, building a hash where the keys are the the distinct customer numbers (use a regexp to retrieve it from the filename) and the values are references to lists of filenames for each customer number.

When you've built the hash, iterate the keys (customers) where for each key you build a zip file (using say Archive::Zip) adding the files listed against that key to the archive.

You might even remove the source files at the same time if that's your preference.

-David

In reply to Re: Grouping files with the same name... by erroneousBollock
in thread Grouping files with the same name... by A200560

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.