brian.hayes
User
Oct 10, 2000, 6:06 PM
Post #2 of 2
(4199 views)
|
Try this, it is out of the online help this is installed with perl.
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
use File::Listing;
for (parse_dir(`ls -l`)) {
($name, $type, $size, $mtime, $mode) = @$_;
next if $type ne 'f'; # plain file
#...
}
# directory listing can also be read from a file
open(LISTING, "zcat ls-lR.gz|");
$dir = parse_dir(\*LISTING, '+0000');
</pre><HR></BLOCKQUOTE>
Brian Hayes
|
MAIN
SEARCH
WHO'S 
LOG 