perlquestion
dbrock
<p>Hello,
I have a three part question to ask... Using the code example below, <br>Can I combine the <code>readdir()</code> function and the <code>(-M $logfile < 1)</code> statement into one short command..?
<p>
Also is it possible to combine the <code>" readdir(), (-M $logfile <1)</code> and the <code>(m/^[B|b].+.txt$/)</code> into one line/command..?
<p>
If the first two questions are not possible can the code be shortened into fewer lines..?
<code>
#!d:\perl\bin\perl.exe
$pth = "\\\\127.0.0.1\\bex";
opendir(Directory, $pth) or die "Cannot Open Directory";
@cont = readdir(Directory);
closedir(Directory);
splice(@cont, 0, 2); # <-- remove " . & .. "
foreach (@cont) {
if (m/^[B|b].+.txt$/) {
push(@contents,$_)
}
}
foreach $content (@contents) {
$logfile = "$pth" .'\\'. "$content";
if( -M $logfile < 1 ) { #less than 24 hours ago
open(FILE, "$logfile"); # open logfile for reading
print "$logfile\n";
close(FILE);
}
}
</code>