directory tree minus certain directories

[John]

Is this the right/best way to do this?  I wanted to use File::Find 
but couldn't figure out how to exclude directories.  I want to display 
a directory tree, but I don't want to display the directories called 
WORKAREA, STAGING, EDITION, or .raw, and I don't want to search those 
directories for subdirectories either.

This is on NT, I'm not sure that matters.  Anyone else using Interwoven 
TeamSh?ite?

use strict;
require TeamSite::Config;

my $iwmount = TeamSite::Config::iwgetmount();
my @list = ();
addSubDirs( $iwmount, \@list );
print join( "\n", @list );

sub addSubDirs
{
    my $dir = shift( @_ );
    my $list = shift( @_ );
    local *DIR;
    opendir( DIR, $dir ) || die( "opendir $dir fails : $!" );

    while( defined( my $sub = readdir( DIR )))
    {
        if ( $sub !~ m#^(EDITION|WORKAREA|STAGING|\.{1,2}|\.raw)$# 
&& -d "${dir}\\${sub}" )
        {
            addSubDirs( "${dir}/${sub}" );
        }
    }

    closedir( DIR );
    push( @list, $dir );
}








-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]