1 
MMAPI_CLOCK_OUTPUTS = 1,        /*clock outputs system*/

用这个解析上面的内容：

$TheLine =~ /\s*(.*)\s*=\s*(.*),\s*\/\*(.*)\*\//)

变量$1末尾包含空格，例如 we have"MMAPI_CLOCK_OUTPUTS "和 not "MMAPI_CLOCK_OUTPUTS"。为什么这些空间也会被捕获？我认为应该使用解析器代码将它们删除

4

3 回答 3

8

正则表达式捕获(.*)是一个贪婪匹配，这意味着它将匹配尽可能多的字符。由于以下内容\s*可以是零长度，因此包含空格的前面字符串包含在捕获中。

通过添加问号将其更改为非贪婪 (.*?)模式，并使用不同的分隔符以避免必须转义模式中的斜杠

$TheLine =~ m<\s*(.*?)\s*=\s*(.*),\s*/\*(.*)\*/>
于 2012-12-21T11:09:19.690 回答
1

TIMTOWTDI，或“我有一段时间没用过Regexp::Grammars ”

#!/usr/bin/env perl

use strict;
use warnings;

use Regexp::Grammars;
my $parser = qr{
  <nocontext:>

  <Definitions>

  <rule: Definitions>   <[Definition]>*
  <rule: Definition>    <Variable> = <Value>
  <rule: Variable>  <Word>
  <rule: Value>     <Word>
  <rule: Word>      [\w\d_]+
}xms;

my $str = 'MMAPI_CLOCK_OUTPUTS = 1,        /*clock outputs system*/';

$str =~ $parser;

# see the whole matched structure
use Data::Dumper;
print Dumper \%/; 

# or walk the structure for results
for my $def (@{ $/{Definitions}{Definition} }) {
  print $def->{Variable}{Word} . ' => ' . $def->{Value}{Word} . "\n";
}
于 2012-12-21T15:44:41.640 回答
0

如果符号前面的单词=没有空格，请更改(.*)为(\S+)

$TheLine =~ /\s*(\S+)\s*=\s*(.*),\s*\/\*(.*)\*\//)
           here __^
于 2012-12-21T11:08:24.367 回答