Xpoint
   [напомнить пароль]

Разное

Оглавление

Создание вложенных каталогов

Часто возникает ситуация, когда надо сохранить какой-нибудь файл в многоуровневой структуре каталогов. Соответственно, прежде чем сохранять файл, надо эту структуру создать. Ниже приведена функция, которая это делает:

sub makePath       
{
  my $dir = shift; # корневой каталог нашей структуры
  my $path = shift; # путь внутри структуры
  my @dirs = split(/\//, $path);
  pop @dirs;
  for (@dirs)
  {
    next unless ($_);
    $dir .= '/'.$_;  
    (-d $dir) or mkdir($dir, 0777) or die "Can`t create dir $dir: $!\n";
  }
}

Можно также воспользоваться стандартным модулем Perl File::Path:

use File::Path;
mkpath('/some/path', 0, 0777);
Powered by POEM™ Engine Copyright © 2002-2005