Perl合并文本的一段實(shí)例代碼
有這樣一個(gè)文本文件，內(nèi)容有多行如下，數(shù)量不定。
Lif(__amscript_cd("www.fzitv.net")){__amscript_wc('#closead {display:none;}');};
Lif(__amscript_cd("www.fzitv.net")){__amscript_wc('#footer_win {display:none;}');};
Lif(__amscript_cd("www.fzitv.net")){__amscript_wc('.mainad {display:none;}');};
Lif(__amscript_cd("www.fzitv.net")){__amscript_wc('.mt5.recommend {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggAD {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggSideBox {display:none;}');};
…………
要求合并為：
Lif(__amscript_cd("www.fzitv.net")){__amscript_wc('#closead, #footer_win, .mainad, .mt5.recommend {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggAD, .ggSideBox {display:none;}');};
思路：可以將url視為key，而將合并的字符串視為value，這樣存儲(chǔ)下來，在打印即可。只是打印的時(shí)候有點(diǎn)麻煩，因?yàn)檫@個(gè)字符串里面包含了單引號(hào)，雙引號(hào)，小括弧和花括弧，用q##做為字符串界定符即可。
#!/usr/bin/perl
use strict;
use warnings;
sub test {
my %comments_of_url = ();
open FILE, "<D:/Codesnippets/Perl/abc.txt" or die $!;
while (<FILE>) {
# Skip empty lines
next if /^\s*$/;
# Use url as key and #xxx as value for each line
# Merge all the #xxx for a url
if (/amscript_cd\("(.*?)"\)\){__amscript_wc\('(.*?)\s+\{/) {
$comments_of_url{ $1 } .= ( $2 . ',' );
}
}
foreach my $key (keys %comments_of_url) {
chomp (my $value = $comments_of_url{$key});
print q{Lif(__amscript_cd("};
print $key;
print q#")){__amscript_wc('#;
print $value;
print q#{display:none;}');};#;
print "\n";
}
}
sub main {
&test();
}
&main();
相關(guān)文章
有關(guān)perl中的$a和$b，這兩個(gè)變量是為sort函數(shù)準(zhǔn)備的內(nèi)置變量，所以聲明時(shí)可以不加 my2013-02-02
Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程
Perl 最重要的特性是Perl內(nèi)部集成了正則表達(dá)式的功能，以及巨大的第三方代碼庫CPAN。這篇文章主要介紹了Windows10下安裝配置 perl 環(huán)境的詳細(xì)教程,需要的朋友可以參考下2020-12-12
想必很多朋友馬上就會(huì)想到Perl中提供的$ENV這個(gè)特殊的哈希變量，對(duì)，在$ENV中完全可以獲取到一些系統(tǒng)變量2013-02-02
這篇文章主要介紹了perl幾個(gè)文件操作例子,講解了刪除文件、讀取文件、一次性讀取等,需要的朋友可以參考下2014-06-06
Perl的networking 功能非常強(qiáng)大，基本上用c/c++能做的事perl都能做，而且做得更輕松方便，甚至可以只用10來行代碼就完成了c/c++要幾十上百甚至幾百行才能完成得好的工作2013-02-02
Perl語言入門學(xué)習(xí)指南及實(shí)用示例
Perl廣泛應(yīng)用于系統(tǒng)管理、Web開發(fā)、網(wǎng)絡(luò)編程和數(shù)據(jù)處理等領(lǐng)域,本文將帶您入門Perl語言,介紹其基本語法、常用功能及實(shí)用示例,感興趣的朋友跟隨小編一起看看吧2024-07-07
Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例
這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例,實(shí)現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下2014-06-06
Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè)
這篇文章主要介紹了Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè),自動(dòng)化運(yùn)維的一個(gè)管理工具,需要的朋友可以參考下2014-06-06
perl中的字符串操作函數(shù)chomp與chop介紹
這篇文章主要介紹了perl中的字符串操作函數(shù)chomp與chop介紹,chomp與chop都是用于去除字符串變量尾部的字符，但它們有各自的區(qū)別,需要的朋友可以參考下2015-02-02
perl uc,lc,ucfirst,lcfirst大小寫轉(zhuǎn)換函數(shù)
這篇文章主要介紹了perl 大小寫字母轉(zhuǎn)換函數(shù),需要的朋友可以參考下2017-10-10