It sounds like execution just takes a while, probably because there are a lot of files on your mapped drive, and access is slower than a local drive (I'm guessing this is a network directory?). Maybe you can log progress (eg: report on current position every 100 file?) to show that something is still happening

One obvious optimization is to only traverse the tree once. And since this would make the "wanted" function a little more complex, it's easier to read if you don't define it directly in the call to find: 

{
  my $lastepch = time;
  my @files;
  my @todel;
  my $counter;

  sub wanted
  {
    $logger->info("Reached $File::Find::name") if ($counter++ % 100) =
+= 0;
    push @files,$File::Find::name if (/\.*$/ and -f $File::Find::name 
+and stat($File::Find::name)->mtime > $lastepoch);
    push @todel,$File::Find::name if (-d $File::Find::name); }, $indir
+;
  }

 sub Get_FileList
 {
   @files = ();
   @todel = ();
   find (\&wanted, $_[0]);
   $lastepch = time;
   ... 
   return (\@files, \@todel);
 }
}
my ($files, $todel) = Get_FileList($indir);

[download]
I've also put the test on the file name first, it's a guess that it might be a little faster, because the name is already in memory and doesn't require drive/network access. And I'm not sure but it kind of looks like you have global variables, so I've shown you how you can have variables shared between functions without making them available everywhere.

In reply to Re: Execution hangs on File::Find by Eily
in thread Execution hangs on File::Find by colox

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.