经常由于磁盘空间不足的原因,需要删除旧文件,因此希望有一个函数,能够查找到某个时间点之前的文件,并删除之。
用newLISP来实现的话,需要类似这样的功能:
(FILE:locate-modified-file file-path start-time end-time)
start-time指的是修改时间的开始, end-time指的是修改时间的结束,按照习惯,这是一个左闭右开区间: [start-time, end-time), 这两个时间都使用epoch表示。
如果找到,则返回true, 否则返回nil.