說明 :
計算該目錄下的程式規模，包含檔案數，行數，字數

<?php
/************************************************************************/
/* AAPortal: Portal with Community and Commerce System             */
/* ===================================================             */
/*                                               */
/* Copyright (c) 2002-2004 by Shiner Technologies Co., Ltd.         */
/* http://shinersoft.com                                 */
/*                                               */
/* This program is free software. You can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
/* the Free Software Foundation; either version 2 of the License.     */
/************************************************************************/

/**
* 計算該目錄下的程式規模，包含檔案數，行數，字數
*
* @version 1.0
* @since 1.0
* @access public
* @author Ryan <ryan@shinersoft.com>
* @copyright Copyright (c) 2002-2004 by Shiner Technologies Co., Ltd.
* @package AAPortal
*/

// 請修改這個目錄的位置
$dir = "aaportal";


// 以下不用更動
$counts = array("directory" => 0, "file" => 0, "line" => 0, "size" => 0);

check($dir);

echo "Total:\n";
echo "Directry : ".$counts["directory"]."\n";
echo "File : ".$counts["file"]."\n";
echo "Line : ".$counts["line"]."\n";
echo "Size : ".$counts["size"]."\n";

function check($dir)
{
  global $counts;
 
  if ($dh = opendir($dir)) {
    while (($file = readdir($dh)) !== false) {
        if ($file == ".") continue;
        if ($file == "..") continue;
        if ($file == "CVS") continue;
        $path = $dir."/".$file;
        if (is_dir($path)) {
          $counts["directory"]++;
          //echo "dir ".$counts["directory"]." $path\n";
          check($path);
        } else {
          $ext = array_pop(explode('.', basename($path)));
          if ($ext=="php" || $ext=="inc") {
            $counts["file"]++;
            //echo "file ".$counts["file"]." $path\n";
            $lines = file($path);
            $counts["line"] += count($lines);
            $counts["size"] += filesize($path);
          }
        }
    }
    closedir($dh);
  }
} ?>