perl多个正则表达式匹配多行

作者: 雨儿
发布时间: 2024-01-09 12:34:41 (8月前)
转自：

2 条回复

0#
回复此人
1号 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果我理解你正确你正在寻找这样的东西： </p> <pre> <code> while ($data =~ /(\w+)\s*\((.+?)\)\s*;/gm) { my $line = $1; my $vals = $2; while ($vals =~ /\.(\w+)\s*\(\s*(\w+)\s*\)/g) { print "$line .. $1: $2.\n" } } </code> </pre> <P> 我打电话给变量 <code> $data </code> 因为它有所有线 - 对吗？我首先拆分线，捕获之间的字符串 <code> ( .. ) </code> ，然后拔出键 - 值对。看起来所有的名字都是字母数字+“_”，这是很好的捕获 <code> \w </code> 。 </p> <P> 希望这可以帮助？ </p> </DIV>

编辑

登录后才能参与评论