<div>
#!/usr/bin/perl<br />
use strict;<br />
use warnings;<br />
use File::Find;<br />
<br />
@ARGV = qw(&quot;.&quot;) unless @ARGV;<br />
my $oldestName = &quot;&quot;;<br />
my $oldestDate = 0;<br />
<br />
sub process_file {<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return unless -f $_ &amp;&amp;&nbsp;-M $_ &gt;&nbsp;$oldestDate;<br />
&nbsp; &nbsp; $oldestDate = -M $_ ;<br />
&nbsp; &nbsp; $oldestName = $File::Find::name;<br />
}<br />
<br />
find(\&amp;process_file, &quot;.&quot;);<br />
<br />
my $age = (stat($oldestName))[9];<br />
print &quot;Oldest file is $oldestName. Changed in &quot;, scalar(localtime($age)), &quot;\n&quot;;
</div>


#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

@ARGV = qw(".") unless @ARGV;
my $oldestName = "";
my $oldestDate = 0;

sub process_file {
      return unless -f $_ && -M $_ > $oldestDate;
    $oldestDate = -M $_ ;
    $oldestName = $File::Find::name;
}

find(\&process_file, ".");

my $age = (stat($oldestName))[9];
print "Oldest file is $oldestName. Changed in ", scalar(localtime($age)), "\n";

<div>
If you want to restrict the find to /mail/queues/{1..20} out of possiblly other /mail/queues/* sub directories, other you can use<br />
find(\&amp;process_file, map{&quot;/mail/queues/$_&quot;}1..2<wbr />0);<br />

</div>


If you want to restrict the find to /mail/queues/{1..20} out of possiblly other /mail/queues/* sub directories, other you can use
find(\&process_file, map{"/mail/queues/$_"}1..20);


<div>
That one worked great I just didn't get back to accept it, others looks good but the first one worked and didn't get to try the others.<br />
<br />
<br />
Thanks,
</div>


That one worked great I just didn't get back to accept it, others looks good but the first one worked and didn't get to try the others.


Thanks,

<div>
<div class="content wysiwyg-content">
I have a directory with about 20 sub directories in it that has a thousands of files in them all together, I need a script to find what is the oldest file and show date and time created in which ever one of these sub directories.<br />
<br />
EX <br />
<br />
/mail/queues/(dir's 1-20)<br />
<br />
thanks,<br />
<br />

</div>
</div>


I have a directory with about 20 sub directories in it that has a thousands of files in them all together, I need a script to find what is the oldest file and show date and time created in which ever one of these sub directories.

EX 

/mail/queues/(dir's 1-20)

thanks,



find oldest file

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.