好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

主頁 > 知識庫 > Perl合并文本的一段實例代碼

Perl合并文本的一段實例代碼

熱門標簽:真人語音電銷機器人系統 邯鄲外呼調研線路 開封百應電銷機器人聯系方式 浦東上海400開頭的電話申請 電話機器人電話卡封號怎么辦 北京語音電銷機器人價格 武漢呼叫中心外呼系統線路商 買了外呼系統不想用了怎么辦 樂昌電話機器人

有這樣一個文本文件,內容有多行如下,數量不定。
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#footer_win {display:none;}');};
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('.mainad {display:none;}');};
Lif(__amscript_cd("www.jb51.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.jb51.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,這樣存儲下來,在打印即可。只是打印的時候有點麻煩,因為這個字符串里面包含了單引號,雙引號,小括弧和花括弧,用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();

您可能感興趣的文章:
  • Perl 文本文件的讀寫操作、文件的重命名和刪除、多個文本文件的合并實現代碼

標簽:六安 自貢 宜春 石嘴山 鄂州 河北 松原 淄博

巨人網絡通訊聲明:本文標題《Perl合并文本的一段實例代碼》,本文關鍵詞  Perl,合并,文本,的,一段,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Perl合并文本的一段實例代碼》相關的同類信息!
  • 本頁收集關于Perl合并文本的一段實例代碼的相關信息資訊供網民參考!
  • 推薦文章