今天無聊中練習了一下PHP周遊檔案目錄的程式,編寫了以下兩個程式,不過品質不是很好,輕拍~~~
1、清除PHP緩存檔案
複制代碼 代碼如下:
function read_dir($dir,$file)
{
$a =strpos($file,".php");
if($a>0)
{
unlink($dir . $file);
echo "delete $dir$file
";
return true;
}
if(strpos($file,".") === 0 || strpos($file,".") !== false ) return true;
if(strpos($file,".") === false || strpos($dir,"/") === false)
{
$dir = $dir . $file . "/";
if(!is_dir($dir)) return false;
$dh = opendir($dir);
while(($file = readdir($dh)) != false)
{
read_dir($dir,$file); //遞歸調用
}
}
}
function clear_caches()
{
$dir = "./temp/"; //要清除的PHP緩存檔案目錄
if(!is_dir($dir)) die("It is not a dir");
$dh = opendir($dir);
while(($file = readdir($dh) )!=false)
{
//var_dump($file);
read_dir($dir,$file);
}
}
?>
2、周遊目錄中所有檔案
複制代碼 代碼如下:
檢視目錄
檔案名 | 修改時間 | 檔案大小(k) |
---|
//$dir = "./admin/";
$dir = "c:/";
$up_dir = "上級目錄";
$up_url = $dir;
if(isset($_REQUEST['act']) && $_REQUEST['act']=='list_dir')
{
if(emptyempty($_REQUEST['dir']))
{
$up_dir="目錄為空!";
}
$dir = isset($_REQUEST['dir']) ? $_REQUEST['dir'] : $dir;
}
if(!is_dir($dir))
{
$up_dir="無效目錄!";
}
?>
if(strpos($up_dir,"上級目錄")!==false)
{
//if($up_url=="") echo $up_dir;
if($dir != "./admin/")
{
$up_url = substr($dir,0,-1);
$k = strrpos($up_url,"/");
$up_url = substr($up_url,0,$k-strlen($up_url));
$up_url = $up_url ."/";
}
echo "$up_dir";
}
else
{
echo $up_dir;
die();
}
?>
$up_dir = $dir;
$dh = opendir($dir);
while(($file=readdir($dh)) != false)
{
if($file != "." && $file != ".." && $file != ".svn" )
{
if(strpos($file,".") !==false)
{
$time = date("Y-m-d H:i:s", filectime($dir . $file));
$size = filesize($dir . $file)/1000;
echo "
$file$time$size";
}
else
{
$time = date("Y-m-d H:i:s.", filectime($dir . $file));
$size = filesize($dir . $file)/1000;
$dir = $dir . $file ."/";
echo "
$file$time$size";
$dir = $up_dir;
}
}
}
?>