下面給大家介紹的用perl寫的一個(gè)刪除程序，你可能還不知道，下面我門一起來(lái)看看，希望對(duì)需要的朋友有所幫助！

大家有沒(méi)有碰到過(guò)unix上，一個(gè)目錄文件太多，無(wú)法刪除的現(xiàn)象，我為大家寫了個(gè)perl的程序刪除

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*`; 

以上用perl寫的一個(gè)刪除程序分享給大家就是小編為大家收集整理的全部?jī)?nèi)容了，希望對(duì)大家有所幫助。如果您喜歡這篇文章，可以收藏或分享給您的小伙伴們吧！歡迎持續(xù)關(guān)注我們的后續(xù)更新。