寫了個perl的刪除程序
更新時間：2007年01月14日 00:00:00 作者：
大家有沒有碰到過unix上，一個目錄文件太多，無法刪除的現(xiàn)象，我為大家寫了個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*`;
復(fù)制代碼 代碼如下:
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*`;
相關(guān)文章
fdupe 是一個很小的 Perl 腳本，用來檢索指定目錄并找出其中重復(fù)的文件，該腳本是通過文件內(nèi)容來識別是否重復(fù)文件，而非文件名。fdupe 無需其他 Perl 腳本支持，運行速度非常快2013-03-03
在Perl中使用Getopt::Long模塊來接收用戶命令行參數(shù)
我們在linux常常用到一個程序需要加入?yún)?shù),現(xiàn)在了解一下perl中的有關(guān)控制參數(shù)的函數(shù).getopt.在linux有的參數(shù)有二種形式.一種是–help,另一種是-h.也就是-和–的分別.–表示完整參數(shù).-表示簡化參數(shù)2013-03-03
這篇文章主要介紹了基于charles抓取https請求使用過程解析,文中通過示例代碼介紹的非常詳細，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,需要的朋友可以參考下2020-11-11
寫過很多關(guān)于Perl編程，今天繼續(xù)分享一篇利用perl后門實現(xiàn)正向和反向連接的實例代碼，需要的朋友可以參考下其中的內(nèi)容詳情2008-05-05
backtrack3里面/pentest/housekeeping里面有個超囧的偷root密碼的東西，冒充su ,perl寫的，管理員輸入密碼的時候還直接回顯2008-09-09
perl對中文的處理(encode,decode) 最近在處理中文時遇到亂碼的問題，google了一下，發(fā)現(xiàn)下面這篇文章。茅塞頓開！2008-10-10
perl寫的一個隨機編故事的程序(rand隨機函數(shù))
用perl寫的一個隨機編故事的程序，用到了rand隨機函數(shù)，注釋也很詳細，需要的朋友可以參考下2013-03-03
perl常見問題集合之二...2007-03-03
PERL里正則表達式的簡介，適合喜歡學(xué)習(xí)perl正則的朋友。2009-03-03
這兩天在用Perl編寫一些監(jiān)控腳本，其實寫代碼也是一件挺有意思的事情，就是挺廢時間的。而且，由于語法不太熟，基本想到一個東西都要先Google一下看怎么實現(xiàn)。2008-06-06