免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1641 | 回复: 9
打印 上一主题 下一主题

[文本处理] 要处理一批配置文件,已经力竭了。来求助 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2012-10-19 14:56 |只看该作者 |倒序浏览
例如: file1内容如下
-------以下为内容------
string_1
{
    line_1
    line_2
    line_n
}

string_2
{
    line_5
    line_6
    line_m
}
-------以上为内容------

其中line_*部分的内容是有一点相似的,想着遇到string_*后,把后面的对应的大括号内的配置内容分别print出
分为2个文件内(意思基本上也就是遇到string_*开始,遇到接下来的第一个}结束)
--------文件1---------
string_1
{
    line_1
    line_2
    line_n
}
--------文件2---------
string_2
{
    line_5
    line_6
    line_m
}
-----------------

描述的有点乱,见谅了。

论坛徽章:
5
2015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:50:282015年亚洲杯之朝鲜
日期:2015-03-13 22:47:33IT运维版块每日发帖之星
日期:2016-01-09 06:20:00IT运维版块每周发帖之星
日期:2016-03-07 16:27:44
2 [报告]
发表于 2012-10-19 15:16 |只看该作者
sed '/string_/,/}/...' 这样?

论坛徽章:
0
3 [报告]
发表于 2012-10-19 15:21 |只看该作者
源文件为tttt
  1. awk 'BEGIN{file=""} /string_/{file=$0.txt;} {print $0 >file}' tttt
复制代码

论坛徽章:
0
4 [报告]
发表于 2012-10-19 15:23 |只看该作者
当然可以更严谨一点了

论坛徽章:
0
5 [报告]
发表于 2012-10-19 15:30 |只看该作者
  1. awk -v RS="string"  '{print RS$0 > RS$1 }' file
复制代码

论坛徽章:
32
处女座
日期:2013-11-20 23:41:20双子座
日期:2014-06-11 17:20:43戌狗
日期:2014-06-16 11:05:00处女座
日期:2014-07-22 17:30:47狮子座
日期:2014-07-28 15:38:17金牛座
日期:2014-08-05 16:34:01亥猪
日期:2014-08-18 13:34:25白羊座
日期:2014-09-02 15:03:55金牛座
日期:2014-11-10 10:23:58处女座
日期:2014-12-02 09:17:52程序设计版块每日发帖之星
日期:2015-06-16 22:20:002015亚冠之塔什干火车头
日期:2015-06-20 23:28:22
6 [报告]
发表于 2012-10-19 16:02 |只看该作者
  1. sed -n '/string_1/{:1;N;/\}/{p;b};b1}' urfile > string_1
  2. sed -n '/string_2/{:1;N;/\}/{p;b};b1}' urfile > string_2
复制代码

论坛徽章:
5
未羊
日期:2014-08-04 16:15:21天秤座
日期:2014-08-13 13:52:372015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:56:112015亚冠之浦和红钻
日期:2015-06-29 15:30:48
7 [报告]
发表于 2012-10-19 18:52 |只看该作者
  1. awk '/^string_/{a++}{print > "string_"a}' file1
复制代码

论坛徽章:
0
8 [报告]
发表于 2012-10-19 20:55 |只看该作者
#!perl -w
use strict ;

undef $/;
my $i=1;
while( <> ){
     open my $fh,">","file_".$i."txt";
           print $fh $1  while /(string.*?\})/gs;
     close $fh;
     $i++;
}

论坛徽章:
0
9 [报告]
发表于 2012-10-19 20:56 |只看该作者
#!perl -w
use strict ;

undef $/;
my $i=1;
while( <> ){
     open my $fh,">","file_".$i."txt";
           print $fh $1  while /(string.*?\})/gs;
     close $fh;
     $i++;
}

论坛徽章:
0
10 [报告]
发表于 2012-10-26 15:51 |只看该作者
回复 7# dn833


    谢谢!很符合我的需求;虽然@nwpu_wl 的也不错,但是这个我可以自定义文件名,呵呵。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP