Hi all,
I want to create a new directory but I need to make sure that it's valid.
Here is what I want to do. Given a starting file hierarchy of something like
this
Top Level
.hidden
Sub Level 1a
.hidden2
Sub Level2a
Sub Level2b
Sub Level 1b
Sub Level2c
Sub Level 1c
Sub Level 2c
I need a perl script that using a variable $levels can return all of the
directories for the given level. (Think of this like a "find -maxdepth
$level") The problem with find is that it returns hidden values and is not
system independant.
So In theory this function would be called like
my $level = "2";
my $start = "/home";
$dir = &GetDirectory($start, $level)
sub &GetDirectory {
my $dir;
while ( -d $dir) {
system "ls?"
# I only want it to list the directories for the level
# Example
# /home/SubLevel1a/SubLevel2a
# /home/SubLevel1a/SubLevel2b
# .
# .
# /home/SubLevel2c
print "plese enter in the directory for the new directory: ";
Functionhere
Functionhere
Functionhere
if ( ! -d $dir ) { $dir="" ; } else { return $dir; }
}
Does anyone have any ideas for this?
Thanks so much
--
Steven M. Klass
Physical Design Manager
National Semiconductor Corp
7400 W. Detroit Street
Suite 170
Chandler AZ 85226
Ph:480-753-2503
Fax:480-705-6407
[EMAIL PROTECTED]
http://www.nsc.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
