Программа списка файлов

<?php
// $path - путь к директории
// $pattern - шаблон поиска
// $flags - константа для функции glob()
// $depth - глубина вложенности, просматриваемая функцией. -1 - без ограничений.
function bfglob($path, $pattern = '*', $flags = GLOB_NOSORT, $depth = 0)
  {
  $matches = array();
  $folders = array(rtrim($path, DIRECTORY_SEPARATOR));
 
  while($folder = array_shift($folders))
    {
    $matches = array_merge($matches, glob($folder.DIRECTORY_SEPARATOR.$pattern, $flags));
    if($depth != 0)
      {
      $moreFolders = glob($folder.DIRECTORY_SEPARATOR.'*', GLOB_ONLYDIR);
      $depth   = ($depth < -1) ? -1: $depth + count($moreFolders) - 2;
      $folders = array_merge($folders, $moreFolders);
      }
    }
  return $matches;
  }
 
$file = bfglob('/var/www/xxxx/data/www/xxx.ru', "*", GLOB_NOSORT, -1);
file_put_contents('sss', implode(PHP_EOL, $file))}

<?php
  // Оригинальный код - Chirp Internet: www.chirp.com.au
  // Пожалуйста, укажите это в хедере, если будете использовать данный код
 
  function getFileList($dir, $recurse=false, $depth=false)
  {
    // массив, хранящий возвращаемое значение
    $retval = array();
 
    // добавить конечный слеш, если его нет
    if(substr($dir, -1) != "/") $dir .= "/";
 
    // указание директории и считывание списка файлов
    $d = @dir($dir) or die("getFileList: Не удалось открыть каталог $dir для чтения");
    while(false !== ($entry = $d->read())) {
 
      // пропустить скрытые файлы
      if($entry[0] == ".") continue;
      if(is_dir("$dir$entry")) {
        $retval[] = array(
          "name" => "$dir$entry/",
          "size" => 0,
          "lastmod" => filemtime("$dir$entry")
        );
        if($recurse && is_readable("$dir$entry/")) {
          if($depth === false) {
            $retval = array_merge($retval, getFileList("$dir$entry/", true));
          } elseif($depth > 0) {
            $retval = array_merge($retval, getFileList("$dir$entry/", true, $depth-1));
          }
        }
      } elseif(is_readable("$dir$entry")) {
        $retval[] = array(
          "name" => "$dir$entry",
          "size" => filesize("$dir$entry"),
          "lastmod" => filemtime("$dir$entry")
        );
      }
    }
    $d->close();
 
    return $retval;
  }
 
$if=fopen("sss","w");
$file = getFileList("/var/data/www", true);
 
fwrite($if,print_r($file, 1));
fclose($if);
 
echo "<script>alert(\"Сделано.\");</script>"; 
?>