Java perl 文件删除/删除超过 n 天的文件

Question

我正在使用 Java 6。

我正在编写一种方法，我必须删除超过 n 天的文件。
这将是内务工作，按计划运行。

做这个的最好方式是什么？

用Java编写检查和删除文件的方法。但我认为使用 Java 我们可以获得文件创建时间。

用 perl 编写并从 Java 调用脚本。

也欢迎任何其他建议。

Answer 1

您可以仅从 java 执行此操作。不需要使用perl。

import java.io.File;
import java.util.Calendar;

public class DeleteOlderThan
{

    private static long daysAgo;

    private static void delete(File f) {
        if (f.isDirectory()) {
            for (File l : f.listFiles())
                delete(l);
        }
        if (f.lastModified() <= daysAgo) {
            f.delete();
        }
    }

    public static void main(String[] args)
    {
        Calendar cal = Calendar.getInstance();
        cal.add(Calendar.DAY_OF_MONTH, -1 * new Integer(args[1]));
        daysAgo = cal.getTimeInMillis();

        delete(new File(args[0]));
    }
}

运行 java DeleteOlderThan /my/path days将递归删除超过几天的路径中的文件。