免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 如何按段落读取？？
最近访问板块 发新帖
查看: 2004 | 回复: 6
打印 上一主题 下一主题

如何按段落读取？？ [复制链接]

youke

论坛徽章:
1
数据库技术版块每日发帖之星 日期:2016-03-01 06:20:00
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2012-07-04 22:19 |只看该作者 |倒序浏览
本帖最后由 youke 于 2012-07-04 22:28 编辑

78:        Dimension.Member: Transformation.TOTALCOLLATERAL_AGG #第一段
        Aggregate: Yes

        Data Maps
        1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1020

79:        Dimension.Member: Transformation.TOTALEXPOSURE_AGG #第二段
        Aggregate: Yes

        Data Maps
        1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1040

80:        Dimension.Member: Transformation.TOTALEXPOSUREAMOUNT #第三段
        Aggregate: Yes

        Data Maps
        1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1030

81:        Dimension.Member: Transformation.WHOLESALE CRM ALLOCATION STD #第四段
        Aggregate: Yes

        Data Maps
        1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 3302


有什么办法将上文中的每一段读取到数组中？
想用$/，但是$/只能是标量，不能是正则。。。
cdtits

论坛徽章:
2
CU大牛徽章 日期:2013-04-17 11:46:28CU大牛徽章 日期:2013-04-17 11:46:39
2楼 [报告]
发表于 2012-07-04 22:46 |只看该作者
  1. undef $/;
  2. @data = <DATA> =~ /^(\d+:.*)$/gms;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
afukada

论坛徽章:
0
3楼 [报告]
发表于 2012-07-04 22:49 |只看该作者
不知道這樣是你要的嗎?
  1. $start_n=78;#這邊是看你的第一段的數字是多少就寫多少。

  3. while($line=<DATA>)
  4. {
  5.         $a_index=$1 if($line=~/^(\d+):/);
  6.         $array[$a_index-$start_n].=$line;
  7. }

  9. __DATA__
  10. 78:        Dimension.Member: Transformation.TOTALCOLLATERAL_AGG #第一段
  11.         Aggregate: Yes

  13.         Data Maps
  14.         1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1020

  16. 79:        Dimension.Member: Transformation.TOTALEXPOSURE_AGG #第二段
  17.         Aggregate: Yes

  19.         Data Maps
  20.         1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1040

  22. 80:        Dimension.Member: Transformation.TOTALEXPOSUREAMOUNT #第三段
  23.         Aggregate: Yes

  25.         Data Maps
  26.         1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 1030

  28. 81:        Dimension.Member: Transformation.WHOLESALE CRM ALLOCATION STD #第四段
  29.         Aggregate: Yes

  31.         Data Maps
  32.         1:        BWCM_WS.DT_TRANSFORMATIONS Where BWCM_WS.DT_TRANSFORMATIONS.TRANSFORMATIONID = 3302
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
youke

论坛徽章:
1
数据库技术版块每日发帖之星 日期:2016-03-01 06:20:00
4楼 [报告]
发表于 2012-07-04 23:02 |只看该作者
回复 3# afukada
谢谢，这是我要的
如果每一段开头的数字是打乱的，该如何递增数组的下标？


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yinyuemi

论坛徽章:
2
射手座 日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海 日期:2016-03-03 10:27:14
5楼 [报告]
发表于 2012-07-04 23:26 |只看该作者
回复 1# youke
  1. @arr=split /^(?=^\d+:)/m,$text
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
jason680

论坛徽章:
145
技术图书徽章 日期: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
6楼 [报告]
发表于 2012-07-05 09:26 |只看该作者
回复 1# youke

easy way to do that and easy way to debug

my %hData;
my $sSeg = "";
while(<FH>){
  if(m/^(\d+):/){
    $sSeg = $1;
    $hData{$sSeg} = "";
  }
  $hData{$sSeg} .= $_;
}
   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
afukada

论坛徽章:
0
7楼 [报告]
发表于 2012-07-05 11:13 |只看该作者
改成這樣試試看
  1. $a_index=-1;

  3. while($line=<DATA>)
  4. {
  5.         $a_index++ if($line=~/^\d+:/);
  6.         $array[$a_index-$start_n].=$line;
  7. }
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP