使用PHP遍历文件目录与清除目录中文件的实现详解

yipeiwu_com5年前PHP代码库
今天无聊中练习了一下PHP遍历文件目录的程序,编写了以下两个程序,不过质量不是很好,轻拍~~~
1、清除PHP缓存文件
复制代码 代码如下:

<?php 

function read_dir($dir,$file) 

    $a =strpos($file,".php"); 

    if($a>0)  
    { 
        unlink($dir . $file); 
        echo "delete $dir$file <br>"; 
        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、遍历目录中所有文件
复制代码 代码如下:

<html> 

<head> 
    <meta http-enquiv="Content-Type" content="text/html;charset=gb2312"> 
    <title>查看目录</title> 
</head> 

<body> 
    <table width="600" align="center"> 
        <tr> 
            <th width="50%">文件名</th> 
            <th width="25%">修改时间</th> 
            <th width="25%">文件大小(k)</th> 
        </tr> 

 
    <?php 

    //$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="无效目录!"; 
    } 

    ?> 

        <tr> 
            <td colspan="3"> 
            <?php  

            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 "<a href=\"test.php?act=list_dir&dir=$up_url\">$up_dir</a>"; 
            }  
            else  
            { 
                echo $up_dir; 
                die(); 
            } 
            ?> 
            </td> 
        </tr> 
    <?php  
        $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 "<tr><td>$file</td><td>$time</td><td>$size</td></tr>"; 
                } 
                else 
                {    
                    $time = date("Y-m-d H:i:s.", filectime($dir . $file)); 
                    $size = filesize($dir . $file)/1000; 
                    $dir = $dir . $file ."/"; 

                    echo "<tr><td><a href =\"test.php?act=list_dir&dir=$dir\">$file</a></td><td>$time</td><td>$size</td></tr>"; 
                    $dir = $up_dir; 

                } 
            } 
        } 

    ?> 

 
    </table> 

<?php die();  ?> 
</body> 

 
</html> 

相关文章

PHP连接操作access数据库实例

因为之前做的PingSwitch要做一个WEB展示的前端,因为一开始用了Delphi和access的结构,而Delphi与MySQL的连接又相对麻烦,最后只能选择用PHP+Access的...

php一句话cmdshell新型 (非一句话木马)

php一句话cmdshell新型 (非一句话木马)

复制代码 代码如下:<?php /*一个新型的php一句话cmdshell(非一句话木马) //原理:php运行时如果遇见字符``(键盘上~符号的下档键)总会尝试着执行``里面包含...

常见PHP数据库解决方案分析介绍

常见PHP数据库解决方案分析介绍

我们在使用PHP连接数据库的时候会遇到很多问题,文章这里揭露PHP应用程序中出现的常见数据库问题 —— 包括数据库模式设计、数据库访问和使用数据库的业务逻辑代码 —— 以及它们的解决方案...

用PHP实现读取和编写XML DOM代码

复制代码 代码如下: // 用 DOM 读取 XML $doc = new DOMDocument(); $doc->load(‘test.xml'); $books = $doc...

如何使用PHP批量去除文件UTF8 BOM信息

原理:UTF8文件,微软为了增加一个识别信息,有了BOM这个东西:BOM —— Byte Order Mark,缺省在Windows等平台上编辑的UTF8文件会在头部增加3个字节的标记信...