在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
12
返回列表 发新帖
楼主: shi6091591142

[求助] perl如何处理多行文本

[复制链接]
发表于 2014-12-2 12:08:15 | 显示全部楼层
@chenfengrugao,
你的脚本适用情况有限,如果有多个aa xx bbxx aa xx bb 不适用。
发表于 2014-12-2 13:02:00 | 显示全部楼层
本帖最后由 chenfengrugao 于 2014-12-2 13:03 编辑

回复 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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-3-29 15:20 , Processed in 0.016093 second(s), 7 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表