新手请教一个问题,谢谢
时间:2010-08-20
来源:互联网
大意是这样,有一个文件:
1 abc........
yy... #以yy开头的数据
yy.....
..
..
..
gg #最后有一个不是yy的数据
2 bcd.......... #格式同1是一模一样的
yy...
yy...
..
..
..
gg
3 .....
..
gg
如此循环下去,
现在,我要得到1下面yy..这几个数据,
编程为 print $_ if /^yy/;
但是这个程序会把2下面的yy也匹配出来,同理3,4等等后面的也会匹配出来
但是我只要把1下面的yy弄出来,
请问怎么弄的?
如果要弄个程序要把 1,2,3等等单独下面的yy弄出来又要怎么编呢?
1 abc........
yy... #以yy开头的数据
yy.....
..
..
..
gg #最后有一个不是yy的数据
2 bcd.......... #格式同1是一模一样的
yy...
yy...
..
..
..
gg
3 .....
..
gg
如此循环下去,
现在,我要得到1下面yy..这几个数据,
编程为 print $_ if /^yy/;
但是这个程序会把2下面的yy也匹配出来,同理3,4等等后面的也会匹配出来
但是我只要把1下面的yy弄出来,
请问怎么弄的?
如果要弄个程序要把 1,2,3等等单独下面的yy弄出来又要怎么编呢?
作者: 179147112 发布时间: 2010-08-20
while (<FH>) {
next if /^1\s+abc$/;
push @array,$_ if /^yy/;
last if /^2/;
}
print @array;
next if /^1\s+abc$/;
push @array,$_ if /^yy/;
last if /^2/;
}
print @array;
作者: leigh111 发布时间: 2010-08-20
- #!perl
-
- while(<DATA>){
- /^(\d+) .*/ and do {
- close OUT;
- open OUT,">$1.txt";
- };
- /^(\d+) .*/../^gg/ and do {
- print OUT $_ if /^yy/;
- };
- }
- __DATA__
- 1 abc........
- yy1 #以yy开头的数据
- yy1
- yy1 #以yy开头的数据
- yy1
- gg #最后有一个不是yy的数据
- 2 bcd.......... #格式同1是一模一样的
- yy2
- yy2
- gg
- 3 .....
- yy3
- yy3
- yy3
- gg
作者: ttcn_cu 发布时间: 2010-08-20
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28