Come posso creare una directory se non ne esiste una con Perl?

Question

Attualmente, la mia uscita Perl è hard-coded per scaricare nella seguente directory UNIX:

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

Il nome del file è costruito come tale:

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

Ho bisogno di un approccio simile alla costruzione di directory UNIX, ma è necessario verificare se esistono prima di crearli.

BONUS EXTRA CREDIT WIN:
Numerazione automatica (revisioni) del $ stat_file in modo che quando questi file vengono pompati nella stessa directory, non sovrascrivano o aggiungono file esistenti nella directory. (Non so se questo problema è stato ancora messo in campo sul S.O. - scusate se un re-post)

Answer 1

utilizzare l'operatore -d e File::Path.

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

make_path ha un vantaggio rispetto mkdir in quanto può creare alberi di profondità arbitraria.

E utilizzare -e per controllare il file esiste

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

Answer 2

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

Non sembra davvero una buona idea incorporare domande "extra" come quella.

Answer 3

Perl ha una funzione built-in mkdir

Date un'occhiata a perlfunc perldoc o il programma mkdir da Perl Power Tools.

Credo che sia sicuro creare una directory già esistente, dare un'occhiata ai documenti.

Answer 4

Ricordare che la directory -d esistenza non significa -w scrivibile. Ma supponendo che ti trovi in ​​un'area personale, lo mkdir($dir) unless(-d $dir) funzionerebbe correttamente.