The leading zero in some file names have been a pain in my side.
They're dated in YMD.log format such as
010623.log (2001/June/23rd)
011212.log (2001/December/12th)
Any suggestions on modding the block of code below so I can "print join" all
of the year 01 files from 06 to 12 ? Its that leading zero in the month
that has been the thorn.
Thanks
------------------------------------------------------------------
$directory = "/data/website_logs/Archived";
opendir(DIR, $directory) || die "Cannot open dir: $!";
@FILES=readdir(DIR);
closedir(DIR);
print join("\n", grep(/^010[6-9]/i, @FILES)), "\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
