Perl快速删除文件和目录
摘要：
删除文件和空目录脚本 1 #!/usr/bin/perl 2 3 use File::Find; 4 5 my $dir = '/path/to/directory'; 6 find(sub { unlink $_ if -f $_ }, $dir); 7 find(sub { rmdir $_ i 阅读全文
posted @ 2023-03-28 15:05 BillyLV 阅读(473) 评论(0) 推荐(0) 编辑
