dbrock has asked for the wisdom of the Perl Monks concerning the following question:
Hello,
I have a three part question to ask... Using the code example below,
Can I combine the readdir() function and the (-M $logfile < 1) statement into one short command..?
Also is it possible to combine the " readdir(), (-M $logfile <1) and the (m/^[B|b].+.txt$/) into one line/command..?
If the first two questions are not possible can the code be shortened into fewer lines..?
#!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); } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: how do I shorten code
by dga (Hermit) on Apr 03, 2003 at 20:17 UTC | |
Re: how do I shorten code
by Enlil (Parson) on Apr 03, 2003 at 20:19 UTC | |
Re: how do I shorten code
by tachyon (Chancellor) on Apr 04, 2003 at 01:17 UTC | |
by Util (Priest) on May 09, 2003 at 02:59 UTC | |
by BrowserUk (Patriarch) on May 09, 2003 at 04:39 UTC | |
Re: how do I shorten code
by tachyon (Chancellor) on Apr 04, 2003 at 01:26 UTC | |
Re: how do I shorten code
by Anonymous Monk on Apr 04, 2003 at 12:43 UTC |
Back to
Seekers of Perl Wisdom