忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
12下一页
最近访问板块 发新帖
查看: 5497 | 回复: 10

如何提取指定行下一行的数据 [复制链接]

论坛徽章:
0
发表于 2011-05-23 17:04 |显示全部楼层
下面是我的数据,我只想得到step2下一行的数据,并把它赋值给一个变量,该如何得到?

结果应该是:Steve Blenheim



---------------------------------------------
step1
Steve Blenheim:415-444-6677:12 Main St.
Betty Boop:303-223-1234:234 Ethan Ln.
Igor Chevsky:408-567-4444:3456 Mary Way
Norma Cord:555-234-5764:18880 Fiftieth St.
Jon DeLoach:201-444-6556:54 Penny Ln.
Karen Evich:306-333-7654:123 4th Ave.
step2
Steve Blenheim
Betty Boop
Igor Chevsky
Norma Cord
Jon DeLoach
Karen Evich
step3
Tom Dave Dan Tom
Betty Tom Henry Tom
Igor Norma Tom Tom

data.zip

399 Bytes, 下载次数: 7

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2011-05-23 17:21 |显示全部楼层
  1. while(<FILE>){
  2.    if(m/^step2$/){
  3.        chomp($data = <FILE>);
  4.    }

  5. }
复制代码

论坛徽章:
0
发表于 2011-05-23 21:36 |显示全部楼层

  1. while (<FILE>){

  2. if (/step2/){
  3. my $next = <FILE>;

  4. print $next;
  5. }


复制代码

论坛徽章:
1
未羊
日期:2014-09-08 22:47:27
发表于 2011-05-24 08:08 |显示全部楼层
本帖最后由 wxlfh 于 2011-05-24 08:11 编辑
  1. my $line;
  2. while (<FILE>){
  3.     if (/^\s*step2\s*$/){
  4.         chomp($line = <FILE>);
  5.         last;
  6.     }
  7. }
  8. print $line;
复制代码

论坛徽章:
0
发表于 2011-05-24 08:28 |显示全部楼层
正则啊。

论坛徽章:
0
发表于 2011-05-24 09:20 |显示全部楼层
回复 4# wxlfh

论坛徽章:
0
发表于 2018-08-19 21:13 |显示全部楼层
回复 4# wxlfh
如果是抓取step2下面多行呢,比如到step3之前的全部抓出来,赋给变量或数组?
假如step2到step3之间的行数不确定

论坛徽章:
1
未羊
日期:2014-09-08 22:47:27
发表于 2018-08-19 21:47 |显示全部楼层
本帖最后由 wxlfh 于 2018-08-19 22:03 编辑
ramsay_dan 发表于 2018-08-19 21:13
回复 4# wxlfh
如果是抓取step2下面多行呢,比如到step3之前的全部抓出来,赋给变量或数组?
假如step2 ...
  1. my @line;
  2. while (<FILE>){
  3.     if (/^\s*step2\s*$/../^\s*step3\s*$/){
  4.         chomp;
  5.         push @line, $_;
  6.     }
  7. }
  8. print "@line\n";
复制代码


论坛徽章:
11
子鼠
日期:2014-10-11 16:46:4815-16赛季CBA联赛之山东
日期:2017-11-10 14:32:142016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:532016科比退役纪念章
日期:2018-03-16 10:24:05
发表于 2018-08-31 09:40 |显示全部楼层
如果内容不是很大,读取整个文件到一个变量。用关键字+换行符做定位

  1. use File::Slurp;
  2. my $s = read_file( "data.txt" );
  3. $s =~/(\r|\n|\r\n)step2(\r|\n|\r\n)(.+)(\r|\n)/;
  4. print $3;
复制代码

论坛徽章:
0
发表于 2018-09-03 10:35 |显示全部楼层
回复 8# wxlfh
前辈,想问下perl输出excel如何按行给excel表格进行赋背景颜色

您需要登录后才可以回帖 登录 | 注册

本版积分规则

【重磅资料】多云网络实战的相关问题汇总!
云网融合的多云网络

本文介绍如何管理私有云数据中心,构建数据中心互联和混合云解决方案。对于OTT 网络架构的深入理解,基本上来源于SIGCOM 的白皮书和一些公开视频。

Overlay SDN 控制器详解

云计算为了适应业务/APP 的快速开发和部署,会把网络分为两层:Overlay 和 Underlay 网络。本文主要讲Overlay网络层面的问题。

超级核心路由器演进

2016 年,网络连接已经采用100G/200G/400G(虽然 400GE 接口技术还未成熟),互联网出口也已经增长到了 T 级别。

获得资料 >>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP