ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Karshiev                       2:5020/400     15 Jun 2000  23:07:25
 To : Serge Cherpatyuk
 Subject : Re: check direxist
 -------------------------------------------------------------------------------- 
 

 Serge Cherpatyuk <Serge.Cherpatyuk@p39.f44.n4625.z2.fidonet.org> пишет:
 
 SC> Paul Kulchenko <paulclinger@yahoo.com> wrote:
 
 PK>> -d $SOMEDIR or mkdir $SOMEDIR, 0755 or die $!;
 SC> а если усложнить задачу. Hи шелл ни эта перловая конструкция
 SC> не создают больше чем один уровень каталога за раз, а мне,
 SC> желательно создать весь путь.
 SC> Разобрать сплитом весь путь и загнать -d в цикл или File::Path заюзать?
 
 Так тут и разобрать не сложно.
 
 for $d(split /\//,$SOMEDIR)
 {-d $SOMEDIR or mkdir $SOMEDIR, 0755 or die $!; chdir("$d");}
 -- 
 http://kron.nm.ru   http://drops.da.ru  http://airbase.uka.ru
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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