Ah I see. I don't think plain perl can do that well, but there might be
some modules that can do it. I would do it with Cygwin. If all the dirs
are under the same point...
#!perl.exe
@dirs = `find ./ -type d`; # gets all subdirectories
chomp @dirs;
foreach $dir (@dirs) {
$dir =~ s#/#\\#g;
print "Newest file modification in $dir is ", substr( ( `command.com
/c dir "$dir" /o-d /a-d` )[5], 29, 15), "\n";
}
That won't work with empty directories. That adds some complexity.
--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede males"
00000100
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
