Perl正则表达式与\ w +不匹配

vkk05

我试图从标量变量中提取一些数据,这些标量变量是数据库值:

在这里复制我的代码

$data = "header1        header2     header3     header4     header5 
-------------------------------------------------------
data1           1a          1b          1c          1d
data2           2a          2b          2c          2d
data3           3a          3b          3c          3d
(3 rows affected)";

if ($data =~ /header5\s+[\-|\s+]*(\w*)[^(]*/){
    print $1;
    print "inside if\n";
}
else {
    print "else part\n";   
}

在这里我要取出以下数据:

data1           1a          1b          1c          1d
data2           2a          2b          2c          2d
data3           3a          3b          3c          3d

为此,我使用了正则表达式。

但是在这里我可以看到$1打印,data1而不是最后的值。

我怎样才能拥有所有(3行数据)数据$1请帮助正则表达式。

维克多·史翠比维

(\w*)匹配0个或多个字字符,这是data1在其中正则表达式发现此匹配的位置。直到此为止的其余文本(都不会捕获到该组中。

采用

/header5\s[-\s]*([^(]*)/

观看在线演示

图案细节

  • header5 -文字字符串
  • \s -空格
  • [-\s]* -0个或多个连字符或空格
  • ([^(]*)-第1组($1内容):0或0个以上的字符(

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

正则表达式\ w匹配ê

来自分类Dev

正则表达式匹配起始字符或_ \ w

来自分类Dev

\ w的正则表达式匹配行为

来自分类Dev

正则表达式匹配起始字符或_ \ w

来自分类Dev

为什么此正则表达式匹配/ \ w + [^(] /?

来自分类Dev

\W 匹配器 vs 空格?正则表达式

来自分类Dev

正则表达式在Perl中不匹配

来自分类Dev

正则表达式在Perl中不匹配

来自分类Dev

正则表达式或不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

正则表达式不匹配

来自分类Dev

表达式不匹配正则表达式

来自分类Dev

如果正则表达式匹配A而不是正则表达式B,则Perl打印

来自分类Dev

正则表达式RightToLeft'\ w'匹配与默认值不同

来自分类Dev

正则表达式匹配.net小于“ <”(名称)W7

来自分类Dev

Perl正则表达式:与此匹配,但不匹配

来自分类Dev

匹配单词的正则表达式,或者不匹配

来自分类Dev

Python正则表达式搜索,匹配不匹配

来自分类Dev

完全匹配的正则表达式不部分匹配

来自分类Dev

正则表达式匹配不匹配的内容

来自分类Dev

正则表达式匹配任何字符或不匹配?

来自分类Dev

正则表达式匹配数字或不匹配

来自分类Dev

完全匹配的正则表达式不部分匹配

来自分类Dev

C ++正则表达式匹配,不匹配

来自分类Dev

Perl正则表达式无法匹配行尾