_ eqtask。*;
unlink

_ eq "task.*"; unlink

_;
}

_; }

使用我的解决方案来解决你的问题如何使用Perl从目录struture中删除子目录？ [ ^ ]作为起点（未经测试 EDIT：测试和修复错误）：

Use my solution to your question How do I remove the subdirectories from the directory struture using Perl?[^] as starting point (untested tested and fixed errors):

sub DelTaskFiles{
    my (