大家有沒有碰到過unix上，一個目錄文件太多，無法刪除的現象，我為大家寫了個perl的程序刪除

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 大家有沒有碰到過unix上，一個目錄文件太多，無法刪除的現象，我為大家寫了個perl的程序刪除 (http://www.webasp.net/article/8/7728.htm)

-- 作者：未知
-- 發佈日期： 2003-09-13

cat > del.pl

#!/usr/bin/perl
$file1=$ARGV[0];
@tests=(1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F','G','H','I','G','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
foreach $test(@tests) {

$file=$file1.$test;

@chars=(0,1,2,3,4,5,6,7,8,9,'A','B','C','D');
foreach $char(@chars) {
`rm $file$char*`;
}
`rm $file*`;

}

`rm $file1*`;

webasp.net