¿Cómo puedo crear un directorio si no existe uno usando Perl?

Question

Actualmente, mi salida de Perl no es modificable para volcar en el siguiente directorio de UNIX:

my $stat_dir = "/home/courses/".**NEED DIR VAR HERE**; 

El nombre del archivo se construye como tal:

$stat_file = $stat_dir . "/".$sess.substr($yr, 2, 2)."_COURSES.csv"; 

Necesito un enfoque similar a la construcción de directorios UNIX, pero es necesario verificar si existen primero antes de crearlos.

BONO CRÉDITO DE CRÉDITO ADICIONAL:
numeración automática (revisiones) de $ stat_file para que cuando estos archivos se bombeen al mismo directorio, no sobrescriban o anexen a archivos existentes en el directorio. (No sé si esta pregunta se ha enviado aún en S.O. - lo siento si es una nueva publicación)

Answer 1

Utilice el operador -d y File::Path.

use File::Path qw(make_path); 
eval { make_path($dir) }; 
if ($@) { 
    print "Couldn't create $dir: $@"; 
} 

make_path tiene una ventaja sobre mkdir en que puede crear árboles de profundidad arbitraria.

Y el uso de -e para comprobar el archivo existe

my $fileSuffix = 0; 
while (-e $filename) { 
    $filename = $filePrefix . ++$fileSuffix . $fileExtension; 
} 

Answer 2

ERM ... mkdir $stat_dir unless -d $stat_dir?

Realmente no parece una buena idea incluir preguntas "extra" como esa.

Answer 3

Perl tiene una función incorporada en mkdir

Tome un vistazo a perlfunc perldoc o el programa mkdir de Perl Power Tools.

Creo que es seguro crear un directorio que ya existe, eche un vistazo a los documentos.

Answer 4

Recuerde que la existencia del -d no significa -w writeable. Pero suponiendo que estés en un área personal, el mkdir($dir) unless(-d $dir) funcionaría bien.