<div>
<div class="content wysiwyg-content">
With the following routine sometimes it pushes files<br />
even if they are older than 10 minutes..<br />
<br />
if ((-A &quot;$file_dir/$file&quot; &lt;&nbsp;600 / 86400) &amp;&amp;&nbsp;($file !~ /^data/) &amp;&amp;&nbsp;($file ne &quot;lock&quot;) &amp;&amp;&nbsp;($file ne &quot;vis&quot;) &amp;&amp;&nbsp;($file ne &quot;vis1&quot;) &amp;&amp;&nbsp;($file ne &quot;vis2&quot;) &amp;&amp;&nbsp;($file ne &quot;vis3&quot;) &amp;&amp;&nbsp;($file ne &quot;vis4&quot;)) {<br />
push (@cleanfilelist,$file);<br />
<br />
<br />
<br />
Is there another command as (-A &quot;$file_dir/$file&quot; &lt;&nbsp;600 / 86400) to<br />
select only files not older than 10 minutes?
</div>
</div>


With the following routine sometimes it pushes files
even if they are older than 10 minutes..

if ((-A "$file_dir/$file" < 600 / 86400) && ($file !~ /^data/) && ($file ne "lock") && ($file ne "vis") && ($file ne "vis1") && ($file ne "vis2") && ($file ne "vis3") && ($file ne "vis4")) {
push (@cleanfilelist,$file);



Is there another command as (-A "$file_dir/$file" < 600 / 86400) to
select only files not older than 10 minutes?

(-A &quot;file&quot;....  command

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.

(-A &quot;file&quot;.... command

(-A "file".... command