Поскольку в Perl встроен системный вызов mkdir()
, вам вообще не нужно использовать команду system
:
my $directory = "...";
if (mkdir $directory)
{
croak "Failed to create directory $directory ($!)";
}
Если вы должны использовать system
, сделайте этобезопасный способ:
if (system "mkdir", $directory)
{
croak "Failed to create directory $directory";
}
Эта форма оператора system
(со списком аргументов) позволяет избежать проблем расширения оболочки.