Полезный код на perl'e для работы с деревом файлов

Полезный код на perl'e для работы с деревом файлов

Полезный код из книжки Mark Jason Dominius "Higher-Order Perl. Transforming Programs with Programs" для работы с папками и файлами. Функция dir_walk обходит все файлы и вложенные папки и вызывает для каждого из них функцию переданную в параметре:

sub dir_walk {
  my ($top, $filefunc, $dirfunc) = @_;
  my $DIR;

  if (-d $top) {
    my $file;
    unless (opendir $DIR, $top) {
      warn "Couldn't open directory top: $!; skipping.\n";
      return;
    }

    my @results;
    while ($file = readdir $DIR) {
      next if $file eq '.' || $file eq '..';
      push @results, dir_walk("$top/$file", $filefunc, $dirfunc);
    }
    return $dirfunc ? $dirfunc->($top, @results) : () ;
  } else {
    return $filefunc ? $filefunc->($top): () ;
  }
}

Примеры (тоже из книжки). Печать файлов и папок:

  dir_walk('.', sub{ print $_[0], "\n"}, sub{ print $_[0], "\n"})

Размер файлов и папок:

  sub file_size{
    -s $_[0]
  }
  sub dir_size{
    my $dir = shift;
    my $total = -s $dir;
    my $n;
    for $n (@_) {$total += $n}
    return $total;
  }
  my $total=dir_walk('.', \&file_size, \&dir_size);

Похожие записи

• Запуск web-сервера из командной строки
• Настройка Macbook'a для web-разработки на perl'e
• Авторизация OAuth 2.0 ВКонтакте на perl VKontakte::API::OAuth
• VKontakte::API v0.02
• Установка ImageMagick+PerlMagick на Linux