develooper Front page | perl.beginners | Postings from March 2002

RE: making parent directories

Thread Previous | Thread Next
Timothy Johnson
March 5, 2002 10:58
RE: making parent directories
Message ID:

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

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


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

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:
For additional commands, e-mail:

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.

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About