免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3110 | 回复: 12

如何用范围操作符匹配一个记录? [复制链接]

论坛徽章:
0
发表于 2010-05-19 17:51 |显示全部楼层
START
1
2
3
4
END
5
6
END
8
9
END

asdlfjasldf
START
10
11
END

论坛徽章:
0
发表于 2010-05-19 18:06 |显示全部楼层
你要干啥

论坛徽章:
0
发表于 2010-05-19 18:28 |显示全部楼层
use strict;
use warnings;

open(F, "<", "d") or die("$!");
while (<F>) {
    print if /START/../END/;
}
close(F);

output:
START
1
2
3
4
END
START
10
11
END

希望继续用使用.., 而输出
START
1
2
3
4
END
5
6
END
8
9
END
START
10
11
END

论坛徽章:
78
双子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06狮子座
日期:2013-10-18 13:40:31双子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年纪念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56处女座
日期:2013-10-24 17:15:30双子座
日期:2013-10-25 13:49:39午马
日期:2013-10-28 15:02:15
发表于 2010-05-19 21:09 |显示全部楼层
用范围操作符好像不行吧

论坛徽章:
0
发表于 2010-05-20 07:56 |显示全部楼层
回复 1# cuteorange
  1. sed '/START/,/END/' datafile
复制代码

论坛徽章:
0
发表于 2010-05-20 08:57 |显示全部楼层
sed 的/start/,/end/和perl的范围操作符是一样的/start/../end/

论坛徽章:
0
发表于 2010-05-20 10:06 |显示全部楼层
  1. use strict;
  2. use warnings;

  3. open(F, "<", "d") or die("$!");
  4. while (<F>) {
  5.     print if !/END/../START/;
  6. }
  7. close(F);
复制代码

论坛徽章:
0
发表于 2010-05-20 10:07 |显示全部楼层
刚才发错了 改过来了

论坛徽章:
0
发表于 2010-05-20 12:33 |显示全部楼层
use strict;
use warnings;

(my $content = sub {local $/; <DATA>}->()) =~ s/(?<=^END\n)(?!.*?^END\n.*?^START\n).*?(?=^START\n)//sm;
die $content;

__DATA__
START
1
2
3
4
END
5
6
END
8
9
END
2
34
START
10
11
END

论坛徽章:
0
发表于 2010-05-20 13:15 |显示全部楼层
楼上是对了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP