ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Cherpatyuk                     2:4625/44.39   20 Jun 2000  08:40:02
 To : Leonid Subbotin
 Subject : Re: check direxist
 -------------------------------------------------------------------------------- 
 

 Leonid Subbotin <Leonid_Subbotin@p1.f16.n5007.z2.fidonet.org> wrote:
 
  PK>>> -d $SOMEDIR or mkdir $SOMEDIR, 0755 or die $!;
 
  SC>> а если усложнить задачу. Hи шелл ни эта перловая конструкция
  SC>> не создают больше чем один уровень каталога за раз, а мне,
  SC>> желательно создать весь путь.
  SC>> Разобрать сплитом весь путь и загнать -d в цикл или File::Path
  SC>> заюзать?
 
 LS> -d $_ ? die : (mkdir($_, 0777), chdir $_) foreach split(/\//, $SOMEDIRS);
 LS> ;)
 
 мда, красиво, а я пошёл по пути наименьшего сопротивления
 
 use File::Path;
 -d $SOMEDIR or mkpath([$SOMEDIR], 0, 0755) or die $!;
 
 ;)
 
 Gray.
 --- ifmail v.2.14.KSI2
  * Origin: RSTA of Vinnytsia (2:4625/44.39@fidonet)
 
 

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