RE: making parent directories

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:zentara@highstream.net]
Sent: Tuesday, March 05, 2002 10:44 AM
To: beginners@perl.org
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: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org


--------------------------------------------------------------------------------
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.

• making parent directories by zentara
• RE: making parent directories by Timothy Johnson
• Re: making parent directories by Jeff 'japhy' Pinyan