gpt4 book ai didi

Perl:正则表达式::语法

转载 作者:行者123 更新时间:2023-12-01 00:46:32 26 4
gpt4 key购买 nike

我尝试了 Regexp::Grammars,但遇到了 2 个问题。也许有人可以帮助我。

use strict;
use warnings;
use Regexp::Grammars;

my $gr =
qr
{
<debug: off>
<warning: off>

<root>

<rule: root>
^<X=val> <O=op> <Y=val>$
<MATCH=(?{
if ($MATCH {O} eq "+")
{
$MATCH = $MATCH {X} + $MATCH {Y};
}
elsif ($MATCH {O} eq "*")
{
$MATCH = $MATCH {X} * $MATCH {Y};
}
elsif ($MATCH {O} eq "/")
{
$MATCH = $MATCH {X} / $MATCH {Y};
}
print"\nCALC=$MATCH";
})>

<token: val>
<X=([0-9]+)>
<MATCH=(?{ print "\nVAL: " . $MATCH {X}; $MATCH = $MATCH {X};
})>

<token: op>
<X=([\+\*\/])>
<MATCH=(?{ print "\nOP: " . $MATCH {X}; $MATCH = $MATCH {X}; })>
}xms;

##########################################

my $input = "10 + 3";

if ($input =~ $gr)
{
foreach (keys %/)
{
print "\nHSH: \"$_\" = " . $/{$_};
}
}

这是输出。

VAL: 10
OP: +
VAL: 3
[eos] \_____<grammar> matched '10 + 3'
CALC=13
HSH: "" = 10 + 3
HSH: "root" = 1

据我所知,它工作正常。 token 中的 MATCH 只是为了让我更好地调试。

但我不确定有 2 点。

  • 为什么这条 [eos] 行还在那里?我禁用了调试。
  • 如何在根元素和结果哈希中得到结果 (CALC=13)?我预计 root=13。

感谢您的帮助!

最好的问候,克里斯

最佳答案

刚刚发现是导致 1 的根规则中的打印。似乎它更像是一个返回问题。但如果它是最后一个命令,它也可以与 MATCH= assign 一起工作。

关于Perl:正则表达式::语法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25803558/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com