RE: making parent directories

[Timothy Johnson]

I know there's an easier way, but here's one way...

unless(-e $destDir){  #check for directory creation
        my @dirs = split /\\/,$destDir;  # this was made on a Win32 system
        my $dirstring;
        foreach(@dirs){   #build directory tree if it does not exist
                $dirstring .= "$_\\";
                unless(-e $dirstring){
                        mkdir $dirstring || warn "could not build part of
$dirstring!\n";
                }
        }
}

-----Original Message-----
From: zentara [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 05, 2002 10:44 AM
To: [EMAIL PROTECTED]
Subject: making parent directories


Hi,

I was writing a script in which I needed to make
a directory "at depth", without having the parent directories
created yet.  For example:

#!/usr/bin/perl
use warnings;

mkdir("1/2/3", 0777) || die "cannot mkdir 1/2/3: $!";

Is there a way to deal with this without resorting to a 
system call?

In bash it's easy,
mkdir -p 1/2/3

So is there some way perl deals with this?




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


--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

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