作者pziyout (pziyout)
看板Perl
標題Re: [問題] 刪除文字檔中某一段文字
時間Fri May 9 08:57:36 2008
※ 引述《hydec (你好嗎？我很好！)》之銘言：
: 我有個資料夾底下有很多個設定檔，設定檔的內容是一些語系翻譯，如：
: <locale name="C">
: :
: :
: </locale>
: <locale name="en_CA">
: :
: :
: </locale>
: 因為語系太多導致整個資料夾肥大，想問有沒有方法能把檔案中的 locale 區段
: 刪除，只留我想要的語系就好 <locale name="C"> ... </locale>
(1) 如果你每個 locale 之間都有空行，則可以這樣作，
open( F , "datafile" ) ;
$str = '"en_CA"' ;
$/ = "\n\n" ; # 每次讀入一整筆 locale 資料
while ( ( $_ = <F> ) !~ m!name=$str! ) {}
print ;
(2) 如果之間沒有空行，
open( F , "datafile" ) ;
$str = '"en_CA"' ;
while ( ( $locale = <F> ) !~ m!name=$str! ) {}
$locale .= $_ while ( ( $_ = <F> ) !~ m!<locale ! ) ;
print $locale ;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.25.24