The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"If exist в Perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"If exist в Perl"  
Сообщение от SubGun email(ok) on 27-Июл-06, 17:22 
Только начинаю программировать на Perl, поэтому глупый вопрос:
Как сказать Perl'у, чтобы он создавал директорию, если такая не создана?
Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

 Оглавление

  • If exist в Perl, SubGun, 17:37 , 27-Июл-06, (1)  
    • If exist в Perl, NuINu, 17:42 , 27-Июл-06, (2)  
      • If exist в Perl, SubGun, 17:52 , 27-Июл-06, (3)  
        • If exist в Perl, sly, 18:00 , 27-Июл-06, (4)  
          • If exist в Perl, SubGun, 18:10 , 27-Июл-06, (5)  

Сообщения по теме [Сортировка по времени, UBB]


1. "If exist в Perl"  
Сообщение от SubGun email(ok) on 27-Июл-06, 17:37 
Так?

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

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

2. "If exist в Perl"  
Сообщение от NuINu (??) on 27-Июл-06, 17:42 
>Так?
>
>if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};

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

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

3. "If exist в Perl"  
Сообщение от SubGun email(ok) on 27-Июл-06, 17:52 
>>Так?
>>
>>if (!exist($dir)) {mkdir("$dir", 0755) || die "Cannot create directory!"};
>
>И что работает? попробуй два раза запустить.

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

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

4. "If exist в Perl"  
Сообщение от sly (ok) on 27-Июл-06, 18:00 
>>>Так?
>>>
>>>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";
}

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

5. "If exist в Perl"  
Сообщение от SubGun email(ok) on 27-Июл-06, 18:10 
Спасибо большое!
Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру