寫了個(gè)perl的刪除程序
更新時(shí)間：2007年01月14日 00:00:00 作者：
大家有沒有碰到過unix上，一個(gè)目錄文件太多，無法刪除的現(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*`;
復(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)文章
perl實(shí)現(xiàn)的兩個(gè)文件對(duì)比并對(duì)數(shù)據(jù)進(jìn)行篩選的腳本代碼
對(duì)比兩個(gè)文件并對(duì)數(shù)據(jù)進(jìn)行篩選的perl腳本，涉及到哈希的應(yīng)用和perl編程風(fēng)格的改變。有需要的朋友可以參考下2013-03-03
基于charles抓取https請(qǐng)求使用過程解析
這篇文章主要介紹了基于charles抓取https請(qǐng)求使用過程解析,文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下2020-11-11![[Perl]文字/代碼批量替換工具](http://img.jbzj.com/images/xgimg/bcimg2.png)
[Perl]文字/代碼批量替換工具...2007-04-04
寫了個(gè)perl的刪除程序...2007-01-01
PERL里正則表達(dá)式的簡介，適合喜歡學(xué)習(xí)perl正則的朋友。2009-03-03
perl寫的一個(gè)隨機(jī)編故事的程序(rand隨機(jī)函數(shù))
用perl寫的一個(gè)隨機(jī)編故事的程序，用到了rand隨機(jī)函數(shù)，注釋也很詳細(xì)，需要的朋友可以參考下2013-03-03
在編程時(shí)把一段代碼注釋掉，即通過注釋的方法，使其不能夠運(yùn)行，但是依然存在于代碼中，等以后需要時(shí)再去掉注釋2013-03-03
perl 中的vars是perl中的一個(gè)pragma(預(yù)編譯指示符），專門用來預(yù)定義全局變量，這些預(yù)定義后的全局變量在qw()列表中，在整個(gè)引用perl文件中皆可使用，即便使用use strict也不會(huì)報(bào)錯(cuò)2013-03-03
perl常問題集合之一...2007-03-03
這篇文章主要介紹了Perl中的特殊內(nèi)置變量詳細(xì)介紹,需要的朋友可以參考下2014-05-05