Только начинаю программировать на Perl, поэтому глупый вопрос:
Как сказать Perl'у, чтобы он создавал директорию, если такая не создана?

• If exist в Perl,SubGun, 17:37 , 27-Июл-06
  • If exist в Perl,NuINu, 17:42 , 27-Июл-06
    • If exist в Perl,SubGun, 17:52 , 27-Июл-06
      • If exist в Perl,sly, 18:00 , 27-Июл-06
        • If exist в Perl,SubGun, 18:10 , 27-Июл-06

Так?

if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};

>Так?
>
>if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};

И что работает? попробуй два раза запустить.

>>Так?
>>
>>if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};
>
>И что работает? попробуй два раза запустить.

Не могу. У меня эта хрень инициирует запрос к огромной базе.
Так что в этом не так? Подскажите.

>>>Так?
>>>
>>>if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};
>>
>>И что работает? попробуй два раза запустить.
>
>Не могу. У меня эта хрень инициирует запрос к огромной базе.
>Так что в этом не так? Подскажите.

# perldoc perlfunc

if ( ! -e "$dir" )
{
    mkdir "$dir", 0755 or die "Can't create $dir: $!\n";
}

Спасибо большое!