ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Subbotin                      2:5007/16.1    16 Jun 2000  12:21:52
 To : Serge Cherpatyuk
 Subject : check direxist
 -------------------------------------------------------------------------------- 
 

 
  PK>> -d $SOMEDIR or mkdir $SOMEDIR, 0755 or die $!;
 
  SC> а если усложнить задачу. Hи шелл ни эта перловая конструкция
  SC> не создают больше чем один уровень каталога за раз, а мне,
  SC> желательно создать весь путь.
  SC> Разобрать сплитом весь путь и загнать -d в цикл или File::Path
  SC> заюзать?
 
 -d $_ ? die : (mkdir($_, 0777), chdir $_) foreach split(/\//, $SOMEDIRS);
 
 ;)
 
                                                        Всегда с вами Sln !
 --- GoldED+/W32 1.1.4
  * Origin: Sln Station (2:5007/16.1)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: check direxist   Serge Cherpatyuk   15 Jun 2000 12:36:56   check direxist   Leonid Subbotin   16 Jun 2000 12:21:52