Creating directories within directories

[DarkJedi]

Hey guys, I'm trying to figure out why mkdir isn't working for me. I've got an HTML form sending info to my cgi program (written in perl) like this


Html part of the form is

<INPUT TYPE=text NAME=filedir>


the Cgi goes something like this

my $basedir = &quot;c:/test&quot;

use CGI;
my $reg = new CGI;
my $filedir = $reg->param(&quot;filedir&quot;

mkdir (&quot;$basedir/$filedir&quot;,0777);


and so on and so on.

My problem is, if in the text box I write something, I get the new directory like I'm supposed to. BUT... If i write

newdir/anotherdir

or

newdir\anotherdir

it doesnt work at all. it wont even create the first directory, let alond the directory withing that directory.

Any ideas anyone???

 

[goBoating]

I expect the Perl implementation of 'mkdir' is similar to the UNIX util. If that is the case, then you will not be able to create nested directories. You'll need to do them one at a time. There is probably a module to simplify this. Maybe someone knows which one???? Sans a module, simply split the path on the '/' or '\' and loop for each new dir level.

 

[DarkJedi]

How do I set that up boating? I'm not exactly.... umm.... brilliant in perl. =)

 

[goBoating]

Change the first line to point at your Perl installation. This was hastily put together, but it runs and gives a decent starting chunk.

#!/usr/local/bin/perl/
$newPath = 'some/new/path/';
@pathParts = split(/\//,$newPath);
foreach $part (@pathParts)
{
$makeThis .= $part.'/'; # add next dir to the mkdir argument
unless (mkdir($makeThis,0777)) { print "Failed to make $makeThis\n"; }
}

'hope this helps......

 

[storm1]

This one is even faster:
using &quot;mkdir -p&quot;, you might be able to create any level
of child dirs.

$dst = &quot;/my/path/to/the/files&quot;;

($_ = `/bin/mkdir -p $dst 2>&1`) or $err = 0;

 

[Tve]

I also found this one (standard ActivePerl) :
[tt]
use File:ath;
mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
[/tt]
AD AUGUSTA PER ANGUSTA

Thierry