Создание папки с использованием perl

Я хочу создать папку с использованием perl, где в той же папке существует скрипт perl. Я создал FolderCreator.pl, для которого требуется входной параметр из имя папки .

unless(chdir($ARGV[0]){ # If the dir available change current , unless
    mkdir($ARGV[0], 0700);                             # Create a directory
    chdir($ARGV[0]) or die "can't chdir $ARGV[0]\n";    # Then change or stop
}

Это работало нормально, только если мы вызывали scipt в той же папке, где он находится. Если он вызывается в другой папке, если он не работает.

Например.

.../Scripts/ScriptContainFolder> perl FolderCreator.pl New
.../Scripts> perl ./ScriptContainFolder/FolderCreator.pl New

Первый работает нормально, а второй - нет. Есть ли способ создать эти папки?

5
задан HoldOffHunger 3 July 2018 в 15:10
поделиться