下面給大家介紹的Perl腳本batchReplace.pl用來批量替換文字/代碼工具詳解，你可能還不知道，下面我門一起來看看，希望對需要的朋友有所幫助！ Perl腳本batchReplace.pl可以用來批量替換文件中的文字/代碼。可在指定目錄中查找指定類型的文件，并遞歸檢查子目錄；在輸出文件時復制輸入文件的目錄結構。 [附件]Win32應用程序batchReplace.exe是由Perl腳本編譯產生的可執行程序，不需安裝Perl運行環境即可執行。 在命令行中使用 batchReplace.exe[ -i 輸入文件路徑（或包含文件的目錄）][ -o 輸出文件位置（文件或目錄）][ -c 批量輸入文件的擴展名，以“.”開始，多個擴展名之間以“|”隔開][ -m 匹配模式][ -I（忽略匹配內容的字母大小寫）][ -G（全局查找要匹配的內容）][ -e 例外的字符串，是對匹配模式的補充，如果在匹配結果中發現有這樣的字符串，做不匹配處理][ -r 替換的內容] 上述參數沒有順序限制。當 -o 參數所涉及的文件路徑不存在時，會自動創建。當輸出文件已經存在時，文件原有的內容將被覆蓋。（安全起見，請不要輸出到輸入文件的原始位置，以免造成不可恢復的損失。） 例如： batchReplace.exe -i d:\gaoshu1 -o d:\do\123\456 -e http://www.blueidea.com/ 通過配置文件 batchReplace.set 設置參數 配置文件中可包含以下設置項目（格式范例，注意大小寫）： Input=E:\fna\ 指定輸入路徑，相當于命令行參數 -i 的默認值。 -i=E:\fna\ 同上。 Output=E:\dnaWalks\ 指定輸出路徑，相當于命令行參數 -o 的默認值。 -o=E:\dnaWalks\ 同上。 Match= -m= Insensitive 忽略匹配內容的字母大小寫，相當于命令行參數 -I。 -I 同上。 Global 全局查找要匹配的內容，相當于命令行參數 -G。 -G 同上。 Replacement= bound0替換的內容，相當于命令行參數 -r 的默認值。-r= bound0同上。Except=http://www.blueidea.com/ 例外的字符串，如在匹配結果中發現有這樣的字符串，做不匹配處理，相當于命令行參數 -e 的默認值。 -e=http://www.blueidea.com/ 同上。 CheckType=.htm|.html 當輸入參數設為目錄時，處理目錄中包含的具有這些擴展名的文本文件（遞歸檢查子目錄）。相當于命令行參數 -c 的默認值。 -c 同上。 每行放置一個項目。除內容之間不要有多余的空格或引號。 除必要的輸入輸出外，所有的設置項目都是可選的。命令行參數會覆蓋相應的默認值。如果在配置文件中不包含Match或CheckType，會啟用內置的默認值（同上面示例中給出的值）。Replacement默認為空字符，將匹配內容替換為空字符，也就是將匹配內容清除。 欲在batchReplace.set中保留歷史配置時，可在參數前放置任意非空白字符以取消其作用。 例如： 2007/04/06 Insensitive （此處的 Insensitive 將作為歷史配置保留，不再生效。） 2007/04/06 Replacement= bound0（此處的 Replacement= bound0將作為歷史配置保留，不再生效。）如果在配置文件的多行中出現同樣的項目，以最后出現的設置為準，例如： CheckType=.htm|.html CheckType=.jsp -c=.asp|.php 將設置CheckType的值為.asp|.php，也可以利用這個特性保留歷史配置，方便調試。 這個腳本寫得比較倉促（是擠出吃晚飯的時間寫的），以后有時間我還會改進。（因此轉載請注明出處，并注意更新。） [免責聲明]作者不承擔用戶因使用此工具而造成的任何意外損失。 perl源碼 #file:batchReplace.pl #author:Bound0 #created:2007-04-06 #first published: http://bbs.blueidea.com/viewthread.php?tid=2734388 my $match; my $replacement=''; my $insensitive=0; my $global=0; my $gi; my $go; my $Checktype=".htm|.html"; my $except; if(open(setfile," while( { if(/^\s*-I/){$insensitive=1} if(/^\s*-G/){$global=1} if(/^\s*-m=(.+)/){$match=$1} if(/^\s*-r=(.+)/){$replacement=$1} if(/^\s*-e=(.+)/){$except=$1} if(/^\s*-i=(.+)/){$gi=$1} if(/^\s*-o=(.+)/){$go=$1} if(/^\s*-c=(.+)/){$Checktype=$1} if(/^\s*Insensitive/){$insensitive=1} if(/^\s*Global/){$global=1} if(/^\s*Match=(.+)/){$match=$1} if(/^\s*Replacement=(.+)/){$replacement=$1} if(/^\s*Except=(.+)/){$except=$1} if(/^\s*Input=(.+)/){$gi=$1} if(/^\s*Output=(.+)/){$go=$1} if(/^\s*CheckType=(.+)/){$Checktype=$1} } } my $para=' '.join(' ',@ARGV); if($para=~/ -I */){$insensitive=1} if($para=~/ -G */){$global=1} my @ti=split(/ -i */,$para); if($ti[1]){($gi)=split(/ -(o|i|c|e|m|r|I|G)/,$ti[1])} unless($gi){print "No \"Input path\" parameter!";exit} my @to=split(/ -o */,$para); if($to[1]){($go)=split(/ -(o|i|c|e|m|r|I|G)/,$to[1])} unless($go){print "No \"Output path\" parameter!";exit} my @tc=split(/ -c */,$para); if($tc[1]){($Checktype)=split(/ -(o|i|c|e|m|r|I|G)/,$tc[1])} my @te=split(/ -e */,$para); if($te[1]){($except)=split(/ -(o|i|c|e|m|r|I|G)/,$te[1])} my @tr=split(/ -r */,$para); if($tr[1]){($replacement)=split(/ -(o|i|c|e|m|r|I|G)/,$tr[1])} unless($match){$match=" $insensitive=1; $global=1} my @tm=split(/ -m */,$para); if($tm[1]){($match)=split(/ -(o|i|c|e|m|r|I|G)/,$tm[1])} unless($match){print "No \"Match Pattern\" parameter!";exit} my $checktyp='('; $Checktype=~s/\./\\\./g; $Checktype=~s/\|/\)\|\(/g; $checktyp.=$Checktype.')$'; my $excep; if($except){ $excep=$except; $excep=~s/\//\\\//g; $excep=~s/\./\\\./g; $excep=~s/\|/\\\|/g; $excep=~s/\[/\\\[/g; $excep=~s/\]/\\\]/g; $excep=~s/\(/\\\(/g; $excep=~s/\)/\\\)/g; $excep=~s/\$/\\\$/g; $excep=~s/\?/\\\?/g; } my $replacemen; if($replacement){ $replacemen=$replacement; $replacemen=~s/\//\\\//g; $replacemen=~s/\./\\\./g; $replacemen=~s/\|/\\\|/g; $replacemen=~s/\[/\\\[/g; $replacemen=~s/\]/\\\]/g; $replacemen=~s/\(/\\\(/g; $replacemen=~s/\)/\\\)/g; $replacemen=~s/\$/\\\$/g; $replacemen=~s/\?/\\\?/g; } sub cFile { my $fi; ($fi)=@_; if(opendir(DIR, $fi)) { my @dir=readdir(DIR); closedir DIR; if("\\" eq substr $fi,(length $fi)-1){$fi=substr($fi,0,(length $fi)-1)} my @subdirs= grep { /^(?!\.)/ && -d "$fi\\$_" } @dir; foreach my $subdir (@subdirs) { cFile("$fi\\$subdir") } @files = grep { /$checktyp/i && -T "$fi\\$_" } @dir; foreach my $fil (@files) { my $bp=''; $bp=(substr $fi,(length $gi))."\\"; my $bi="$fi\\$fil"; my $bo=$go.$bp.$fil; remove($bi,$bo) } } } unless("\\" eq substr $go,(length $go)-1){$go.="\\"} if(-d $gi) { unless("\\" eq substr $gi,(length $gi)-1){$gi.="\\"} cFile($gi); } else { my $bu=substr $gi,(rindex $gi,'\\'); my $bo=$go.$bu; remove($gi,$bo) } print "\nProcess Finished!"; print "\n-i:$gi"; print "\n-o:$go"; print "\n-m:$match"; if($except){print "\n-e:$except"} if($replacement){print "\n-r:$replacement"} sub remove { my $bi; my $bo; ($bi,$bo)=@_; print "\nprocessing $bi ...\n"; unless(open(INPUT,"<$bi")){print "\n[Warn] Can not open the file <$bi>: $!";return} my @conts = ; close INPUT; my $cont=join '',@conts; my $c; if($insensitive) { if($global) { unless($cont=~s/($match)/${$c=Cexcept($1)}$c/gi){die "$!"} } else { unless($cont=~s/($match)/${$c=Cexcept($1)}$c/i){die "$!"} } } else { if($global) { unless($cont=~s/($match)/${$c=Cexcept($1)}$c/g){die "$!"} } else { unless($cont=~s/($match)/${$c=Cexcept($1)}$c/){die "$!"} } } unless(open(OUT, ">$bo")) { if($!==2) { my $dbo=substr $bo,0,(rindex $bo,'\\'); if(opendir(OUTDIR,$dbo)){closedir OUTDIR;print "\n[Warn] Can not open the output file <$bo>: $!";exit} else { if($!==2) { unless(pmkpath($dbo)){print "\n[Warn] Can not creat the output directory <$dbo>: $!";exit} unless(open(OUT,">>$bo")){print "\n[Warn] Can not open the output file <$bo>: $!";exit} } else{print "\n[Warn] Can not open the output directory <$dbo>: $!";exit} } } else{print "\n[Warn] Can not open the output file <$bo>: $!";exit} } print OUT "$cont"; close OUT; } sub pmkpath { my @p=split(/\\/,shift); my $pa=$p[0]; my $m=$#p+1; my $t; for($t=1; -e $pa;$t++){$pa.='\\'.$p[$t]} unless(mkdir $pa){return 0} for(;$t<$m;$t++) { $pa.='\\'.$p[$t]; unless(mkdir $pa){return 0} } return 1 } sub Cexcept { unless($except){return $replacemen} my $con; ($con)=@_; if($con=~/$excep/){return $con}else{return $replacemen} } |
免責聲明：本站部分文章和圖片均來自用戶投稿和網絡收集，旨在傳播知識，文章和圖片版權歸原作者及原出處所有，僅供學習與參考，請勿用于商業用途，如果損害了您的權利，請聯系我們及時修正或刪除。謝謝！
始終以前瞻性的眼光聚焦站長、創業、互聯網等領域，為您提供最新最全的互聯網資訊，幫助站長轉型升級，為互聯網創業者提供更加優質的創業信息和品牌營銷服務，與站長一起進步！讓互聯網創業者不再孤獨！
掃一掃，關注站長網微信
大家都在看
