Demon

在这里问 Perl 的问题你认为会有人知道？问问题要找对地方。

while (<C:/testfolder/*.log>) {
    unlink $_ if -M $_ > 10;
}
复制代码