Re: Re: Help making a directory tree

Thanks for the reply. One kicker here though. Your code stops when it can't make the first directory (/home in this case). Complains that the folder exists, which it will in most cases. I tried changing this:

$dirsofar .= "/".$dc;
[download]

to this:

$dirsofar = ( $dirsofar =~ /^./ ) ? $dirsofar . "/".$dc : $dirsofar .=
+ $dc;
[download]

In order to make directories only from the current directory. IE - if running the script from /home/user --- make the other two directories. But in that case if:

@ARGV[0] = "/home/user/files/work/file";
[download]

My directories would turn out to be:

/home/useruser/filesfilesfiles/workworkworkwork
[download]

Another 20 minutes and I should be able to to tweak your guy... I gotta bolt in a minute though. :(

Comment on Re: Re: Help making a directory tree Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Help making a directory tree by sgifford (Prior) on Aug 26, 2003 at 18:02 UTC
Merlyn's solution is better, but the directory already existing is why it checks the error message: `if ($! !~ /exists/i) { die "Couldn't mkdir($dirsofar): $!"; }` [download] As long as the error message contains the word "exists", it will just ignore the error and continue on. I tested this case, and it worked fine for me. If it doesn't work for you, I'm curious what error message it prints...	[reply] [d/l]