免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2685 | 回复: 3

程序求助-按特定字符拆分文件 [复制链接]

论坛徽章:
0
发表于 2019-02-12 14:08 |显示全部楼层
各位大侠,求助一个按特定字符拆分文件的程序问题:
文件aa如下:
=== Wafer ID: A123 ===
Are
You
OK
?
=== Wafer ID: B234 ===
Yes,
I
Am
OK
.
=== Wafer ID: C345 ===
No,
I
Am
Not
OK
.

想要的结果,产生三个文件:
result_A123:
=== Wafer ID: A123 ===
Are
You
OK
?

result_B234:
=== Wafer ID: B234 ===
Yes,
I
Am
OK
.

result_C345:
=== Wafer ID: C345 ===
No,
I
Am
Not
OK
.


程序完成了一部分,下面不知道要如何操作了,求助大神。
#!/usr/bin/perl -w

open(DATA, "< aa");
  @data = <DATA>;
close DATA;

foreach $line(@data) {
  if($line =~ m/Wafer ID:\s*(\S+)/) {
    $num = $1;
      open(OUT, "> result_$num");
        print OUT $num;
      close OUT;
  }
}

论坛徽章:
0
发表于 2019-02-12 14:40 |显示全部楼层
本帖最后由 Kobe2414 于 2019-02-12 15:18 编辑

网速慢,重复回复了。

论坛徽章:
0
发表于 2019-02-12 14:41 |显示全部楼层
搞定了,贴出来供大家参考修正
#!/usr/bin/perl -w

open(DATA, "< aa";
  @data = <DATA>;
close DATA;

my $outfile;
foreach $line(@data) {
  if($line =~ m/Wafer ID:\s*(\S+)/) {
    close(OUT) if(defined($outfile));
    $num = $1;
    $outfile = "result_$num";
    open(OUT, "> $outfile";
  }
  print OUT $line;
}
close(OUT);

论坛徽章:
0
发表于 2019-02-12 14:41 |显示全部楼层
本帖最后由 Kobe2414 于 2019-02-12 15:18 编辑

网速慢,重复回复了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。




----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP