Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
recurse directories
- Thread starter zwark
- Start date
Try this Subroutine if you'd like. It's something I use currently to check for files of a certain age (less than 1 day old) and create an HTML page from these files. I'm sure it's not the cleanest code, but it works for my purposes.
[tt]sub g
{
foreach (glob "$_[0]/*"
{
# recurse into subdirectories
-d && g($_) unless -l;
# if file ending in desired extension
if (-f && /\.pdf$/i)
{
# check file for age. If less than 1 day old,
# create HTML page of directory.
if ((-M) < 1.02)
{
my $file = $_;
writehtml("$file","$topdir" # start HTML creation subroutine
return;
}
}
}
}
[/tt]
Hope this helps some!
[tt]sub g
{
foreach (glob "$_[0]/*"
{
# recurse into subdirectories
-d && g($_) unless -l;
# if file ending in desired extension
if (-f && /\.pdf$/i)
{
# check file for age. If less than 1 day old,
# create HTML page of directory.
if ((-M) < 1.02)
{
my $file = $_;
writehtml("$file","$topdir"
; # start HTML creation subroutinereturn;
}
}
}
}
[/tt]
Hope this helps some!
- Status
Similar threads
- Locked
- Question