Как создать папку с помощью mkdir в Perl?

Question

Я хочу создать папку по определенному пути, используя mkdir.

Answer 1

Предполагая, что D:/Test/Data существует

my $dir_qfn = 'D:/Test/Data/foo';
mkdir($dir_qfn)
   or $!{EEXIST}   # Don't die if $dir_qfn exists.
   or die("Can't create directory \"$dir_qfn\": $!\n");

Если нет,

use File::Path qw( make_path );

my $dir_qfn = 'D:/Test/Data/foo';
make_path($dir_qfn);

Answer 2

этот синтаксис проверит существование каталога и при необходимости создаст его

# here include path to new directory name
$newdir = './directory_name';
opendir(DIR, $newdir) || mkdir($newdir,0777) || die "Cannot create directory $newdir; $!";