+ -
当前位置:首页 → 问答吧 → perl计算多行文本

perl计算多行文本

时间:2010-11-04

来源:互联网

大家好,

我有一个字符串$a,可能是多行的,比如
Date:aaa
Date:bbb
Date:ccc
每行都以Date开头,请问我怎么使用perl来解读这个文本,得到行数呢,只需要得到多少行的信息。

谢谢

作者: hepower   发布时间: 2010-11-04

my $a = "Date:aaa
Date:bbb
Date:ccc";
my $num = 0;
my @array = split/\n/,$a;


foreach (@array) {
  $num++ if /^Date/;
}
print $num;

不知道理解是否对。

作者: leigh111   发布时间: 2010-11-04



QUOTE:
my $a = "Date:aaa
Date:bbb
Date:ccc";
my $num = 0;
my @array = split/\n/,$a;


forea ...
leigh111 发表于 2010-11-04 14:28




    谢谢回复!
    已经解决
  print DB_LOG_FILE $log;
my $count = () = $log =~ /Date/g;

作者: hepower   发布时间: 2010-11-04

回复 hepower


    解决办法很好啊,能这么用说明对 context 的理解那是相当深刻啊

作者: zhlong8   发布时间: 2010-11-04