[MacPerl] Listing Folders and Subfolders

["Robert Sweeney @DG&Astl" <rsweeney@anet-stl.com>]

Hello, 

 I was asked to provide a directory tree for a website I'm working on, so I
created the following code, which worked. My question of the more
experienced MacPerl programmers: Was there a better/faster way to do this?



#!/usr/bin/perl5

use DirHandle;
use Cwd 'chdir';


$startdir = $ARGV[0]; #drag and drop "root" folder on droplet version.
chdir "$startdir";
&isDir;

sub isDir {
 my ($d) = new DirHandle ":";
 my (@files, $basedir);
 $basedir = $ENV{'PWD'};
 $printline = $basedir;
 $printline =~ s/$startdir/Root_Level/;
 $numtab = $printline =~ tr/:/\//;
 $printline =~ s/(.*)\/([^\/]*)$/\2/;
 print "   \t" x $numtab, "$printline\/\n";

 @files = $d->read;
 for $file (@files) {
   if (-d $file) {
       chdir ":$file";
       &isDir;
       chdir "$basedir";
    }
 }
 $d->close;
}

__END__

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org