foreach my $file2(@file2only) {
    unless (($file2 =~ "tmp") 
    or ($file2=~"temp") 
    or ($file2 =~ "recycler") 
    or ($file2 =~ "history")) {
        print OUT $file2;
        }
}

[download]

I still see a problem pointed out in the original thread with your use of regular expressions to disclude certain files. $file2 =~ "history" and $file2 =~ "temp" for example, matches any file containing the word "history" or "temp" in part of it's path. This could very well include critical data like "account_history", or "form_templates". I'm not sure what the output per file looks like as the block loops through @file2only, but if it's a full directory path you could do something like:

c:\\account_history\important_variations.txt 

foreach my $file2 (@file2only) {
    my $flag = undef;
    my @dir_struct = split('\',$file2);
    foreach my $item (@dir_struct) {
      $flag = 'skip' if ($item =~ /^(temp|recycle|history)$/);
      last if ($flag eq 'skip');
    }
    print OUT $file2 unless ($flag eq 'skip');
}

[download]

I know you're going for simplicity here, and this adds alot to explain, but this is just a quick, plausible solution to show how the code can be made more "production-ready". I haven't tested the above btw, and split wont split the beginning part of the path very cleanly, but there's nothing relevant there anyway as far as the match is concerned.

Roses are red, violets are blue. All my base, are belong to you.

In reply to Re: Determine files added/removed (code for magazine article) by fluxion
in thread Determine files added/removed (code for magazine article) by McMahon

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.