perl如何处理多行文本

gechuanzhi2006

@chenfengrugao,
你的脚本适用情况有限，如果有多个aa xx bbxx aa xx bb 不适用。

chenfengrugao

回复 11# gechuanzhi2006


    不太清楚你描述的是哪种情况。

    脚本做一点点改进：
    use strict;
    open(FIN, "<aa.txt");
    my $file = "";
    while(<FIN>){
        $file .= $_;
    }
    $file =~ s/(aa).*?(aa)/$1\n$2/gs;    # ？-- 非贪婪模式匹配
    print "$file";

    比如：
    9877
    aa         # 第一组aa开始
    111     
    222
    aa         # 第一组aa结束
    0000     
    aa         # 第二组aa开始
    445
    aa         # 第二组aa结束
    afafa

    输出：
    9877
    aa
    aa
    0000 #如果想这一行也删掉了话，可以再做一次$file =~ s/(aa).*?(aa)/$1\n$2/gs;
    aa
    aa
    afafa