My OperaLinux下一次删除所有空目录的方法
Thursday, January 11, 2007 12:59:46 AM
方法一：用 Perl 实现
程序
#!/usr/bin/perl
use File::Find;
finddepth(sub{rmdir},'.')
命令
perl -MFile::Find -e"finddepth(sub{rmdir},'.')"
方法二：用 Shell Script 实现
find -depth -type d -empty -exec rmdir {} \;
以上方法来自：http://duramecho.com/ComputerPrograms/DeleteEmptyDirectories/index.html
程序
#!/usr/bin/perl
use File::Find;
finddepth(sub{rmdir},'.')
命令
perl -MFile::Find -e"finddepth(sub{rmdir},'.')"
方法二：用 Shell Script 实现
find -depth -type d -empty -exec rmdir {} \;
以上方法来自：http://duramecho.com/ComputerPrograms/DeleteEmptyDirectories/index.html
