2

我正在研究 Parse::RecDescent 语法来读取给定的人类可读的规则集，然后吐出一个计算机更容易阅读的文件。

其中一个标记是“关键字”列表；大约 26 个不同的关键字。这些可能会随着时间而改变，并且可能被多段代码引用。因此，我想将关键字-y 的东西存储在数据文件中并加载它们。

Parse::RecDescent 的一个特性是能够在正则表达式中插入变量，我想使用它。

我写了一些代码作为概念证明：

@arr = ("foo", "bar", "frank", "jim");


$data = <<SOMEDATA;
This is some data with the word foo in it
SOMEDATA

$arrstr = join("|", @arr);

if($data =~ /($arrstr)/)
{
    print "Matched $1\n";
}
else
{
    print "Failed to match\n";
}

这工作正常。当我转到我的主程序来实现它时，我写道：

{
    my $myerror = open(FILE, "data.txt") or die("Failed to open data");
    my @data_arr = <FILE>;
    close FILE;
    my $dataarrstr = join("|", @data_arr);

}
#many rules having nothing to do with the data array are here...

event : /($dataarrstr)/
    { $return = $item[1]; }
    |

在这一点上，我从 P::RD: 收到了这个错误ERROR (line 18): Invalid event: Was expecting /($dataarrstr)/。

我不知道为什么。有没有人有任何可以帮助我的想法？

编辑：这不是范围问题-我已经尝试过了。我也尝试过 m{...} 语法。

4

1 回答 1

3

在阅读了http://perlmonks.org/?node_id=384098上的文档和一个非常类似的问题之后，我制定了这个解决方案。

event :/\w+/
    {
        $return = ::is_valid_event($item[1]);
    }
    | <error>

语法之外——

#This manages the problem of not being able to interpolate the variable 
#in the grammar action
sub is_valid_event {
    my $word = shift @_;
    if($word =~ /$::data_str/)
    {
        return $word;
    }
    else
    {
        return undef;
    }
}
于 2009-06-09T18:33:16.520 回答