
brian.hayes
User
Oct 10, 2000, 6:06 PM
Post #2 of 2
(4570 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
|