using mkdir ()

[grazinggoat]

I'm a perl newbie...

Can anyone tell me why mkdir will not allow me to make /tmp/system/logs. How do I get around this.. do I have to call mkdir by system? I suspect its because I would need mkdir -p but still couldn't get it to create. thanx in advanced

#!/usr/bin/perl


$ArchiveRootDir = "/tmp/system/logs"; # Archive Root/Base dir


# Check if /etrade/logs exist
unless ( -d $ArchiveRootDir ) {
print "Could not find $ArchiveRootDir. Creating...\n";
mkdir("$ArchiveRootDir", 0777) or die("Could not Create $ArchiveRootDir");
}

 

[feherke]

Hi

To recursively create a directory structure, look at the [tt]mkpath[/tt] function of the File:ath module.

Feherke.

http://free.rootshell.be/~feherke/