複製代碼 代碼如下:<?php
/**
* 計算該目錄下的程式規模,包含檔案數,行數,字數
*
* @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);
}
} ?>