使用Perl的File::Path模块删除非空文件夹

之前写过用perl删除Windows下的图片缓存缩略图(Thumbs.db)

不过那个只是针对单个的文件，使用unlink方法就可以了（未测试过只读文件删除的情况- -!），那如果要删除指定的一个文件夹，有三种方案：

1、循环文件夹里面的文件，然后逐一删除，再使用rmdir删除空目录

2、使用File模块，使用remove_tree方法

3、调用系统命令进行删除（这个在linux下处理的较好，windows下未进行测试）

我选择了第二种方案，使用File::Path模块，点击查看详情>>

之前对Perl的操作符总结的并不好，这里小结一下：

1、比较运算符

2、逻辑运算符

特殊说明：操作符和其命名在运算时是完全等价的，但是有不同的优先级。操作符有更高的优先级。例如 && 比 and 有更高的优先级。

3、单引号与双引号的区别

示例一：

my $test = "11111";
print 'test';

得到的将是字符串”$test”

示例二：

my $test = "11111";
print "$test";

将得到变量$test的值 “11111”

好的习惯是全部使用双引号（”），在需要转义的地方使用”\”

上面是注意事项，回到写代码的初衷，为了删除某一指定文件夹下面的 “.svn”目录以及“Thumbs.db”文件。

#!/usr/bin/perl
use strict;
use warnings;
use File::Path 'remove_tree';

my $path = "C:/xx/assets";
my $fileCount = 0;
my $folderCount = 0;

sub del_handler {
    my $path = $_[0];
    my $handle;
    my $subpath;

    if (-d $path) {
        if (opendir($handle, $path)) {
            while ($subpath = readdir($handle)) {
                if (!($subpath =~ m/^\.$/) and !($subpath =~ m/^\.\.$/)) {
                    my $p = $path."/$subpath";

                    if (-d $p) {
                       if ($subpath eq ".svn") {
                             print "delete folder .svn : $p\n";
                          remove_tree($p);
                          $folderCount++;
                       } else {
                            del_handler($p);
                       }
                    } elsif(-f $p and $subpath eq "Thumbs.db") {
                      unlink($p);
                      $fileCount++;
                      print "delete file Thumbs.db : $p\n";
                    }
                }
            }
            closedir($handle);
           }
    }
}

del_handler($path);

print "\n\ndelete Thumbs.db files num : $fileCount\n";
print "delete .svn folder num : $folderCount";

上面的代码显示不太合理，因为把路径给写死了。如何在调用的时候，例如这样：perl del.pl path

就是path在调用的时候才传进去呢？用$ARGV[0] 就可以得到，调用之前判断一下。

#!/usr/bin/perl
use strict;
use warnings;
use File::Path 'remove_tree';


my $fileCount = 0;
my $folderCount = 0;

sub del_handler {
    my $path = $_[0];
    my $handle;
    my $subpath;

    if (-d $path) {
        if (opendir($handle, $path)) {
            while ($subpath = readdir($handle)) {
                if (!($subpath =~ m/^\.$/) and !($subpath =~ m/^\.\.$/)) {
                    my $p = $path."/$subpath";

                    if (-d $p) {
                       if ($subpath eq ".svn") {
                             print "delete folder .svn : $p\n";
                          remove_tree($p);
                          $folderCount++;
                       } else {
                            del_handler($p);
                       }
                    } elsif(-f $p and $subpath eq "Thumbs.db") {
                      unlink($p);
                      $fileCount++;
                      print "delete file Thumbs.db : $p\n";
                    }
                }
            }
            closedir($handle);
           }
    }
}

my $path = $ARGV[0] or die "Need target folder !\n";
print "Target Folder is : $path \n\n";

del_handler($path);

print "\n\ndelete Thumbs.db files num : $fileCount\n";
print "delete .svn folder num : $folderCount\n";

使用方法（同样适用于linux）cmd切换到pl文件的目录，如c:\perlApp，C:\perlApp>perl del_svn.pl  C:\theme\defaultTheme\assets

当然删除文件和目录，使用windows自带的dos脚本更简单一些(存为bat双击运行即可)：

@echo off
title 文件目录SVN标志清除工具

:start
::启动过程，切换目录
set pwd=%cd%
cd %1
echo 工作目录是：& chdir

:input
::获取输入，根据输入进行处理
set source=:
set /p source=确定要清楚当前目录下的svn信息吗？[Y/N/Q]
set "source=%source:"=%"

if "%source%"=="y" goto clean
if "%source%"=="Y" goto clean
if "%source%"=="n" goto noclean
if "%source%"=="N" goto noclean
if "%source%"=="q" goto end
if "%source%"=="Q" goto end
goto input

:clean
::主处理过程，执行清理工作
@echo on
@for /d /r %%c in (.svn) do @if exist %%c ( rd /s /q %%c & echo     删除目录%%c)
@echo off
echo "当前目录下的svn信息已清除"
goto end

:noclean
::分支过程，取消清理工作
echo "svn信息清楚操作已取消"
goto end

:end
::退出程序
cd "%pwd%"
pause

但有时间这个bat并不能很好的完成工作，非得到未删除干净的目录下再次运行，有点繁琐（为什么出现这种现象，暂时未查到原因~ ~）

DOS下还有一个Copy文件的命令也比较有用：xcopy，例如：

xcopy D:\Aptana_work\9917\search\*  \\192.168.0.178\application\search\search\   /E /Y /D

后面/E /Y /D是参数，具体的说明可以在DOS下查看

如果使用php或是python来删除文件夹和文件的话，也能做的很好，我只是当作练练手。下面是php代码，写的一个测试例子（代码规整的并不好，接触php不久..）

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">

<?php

    function deleteDir($path) {
        if (is_dir($path)) {

            echo $path.'　　开始遍历文件夹...<br/>';

            if ($handle = opendir($path)) {
                while(($file = readdir($handle)) !== false) {

                    if ($file != "." && $file != "..") {
                        $path2 = $path.'/'.$file;

                        if (preg_match("/.html?$/", $file)) {
                            deleteHandler($path2);

                            if (is_dir($path2)) {
                                if (rmdir($path2)) {
                                    echo '文件夹'.$path2.'删除成功！<br/>';
                                } else {
                                    echo '文件夹'.$path2.'删除失败！<br/>';
                                }
                            }
                        } else if (is_dir($path2)) {
                            if (!rmdir($path2)) {
                                deleteDir($path2);
                            }
                        }
                    }

                }

                closedir($handle);
            }

        } else {
            echo '"'.$path.'"不是一个正确的文件夹路径...';
        }
    }

    function deleteHandler($path) {
        if (is_dir($path)) {
            $handle = opendir($path);

            while (($file = readdir($handle)) !== false) {
                if ($file != '.' && $file != '..') {
                    $path2 = $path.'/'.$file;

                    deleteHandler($path2);
                }
            }

            closedir($handle);
        } else if (is_file($path)) {

            if (unlink($path)) {
                echo '文件'.$path.'删除成功<br/>';
            } else {
                echo '文件'.$path.'删除失败<br/>';
            }

        }
    }

    deleteDir("D:/test");
?>