DDR爱好者之家

使用PHP遍历文件目录与清除目录中文件的实现详解
站长资源 2024/11/26 佚名
59 1538
DDR爱好者之家 Design By 杰米
今天无聊中练习了一下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> 

DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！

昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米