无法使用 Parse::Lex 解析

Question

我在 Windows XP（版本 5.1.2600）上使用处于活动状态的 Perl 版本 5.12.4。安装了 ParseLex 2.20。 尝试从 Apress 的 Pro Perl Parsing 书中运行此代码。

#!/usr/bin/perl

use Parse::Lex;

#defines the tokens
@token=qw(  
BegParen [\(]
EndParen [\)]
Operator [-+*/^]
Number   [-?\d+|-?\d+\.\d*]
);
$lexer=Parse::Lex->new(@token); #Specifies the lexer
$lexer->from(STDIN); #Specifies the input source

TOKEN:
while(1){ #1 will be returned unless EOI
$token=$lexer->next;
if(not $lexer->eoi){
    print $token->name . " " . $token->text . " " . "\n";
}
else {last TOKEN;}
}

由于这不起作用，我用数字 [-?\d+] 进行了简化。 它告诉我“无法在未定义的值上调用方法“名称”。它无法识别 $token->name & $token->text。 我在这里缺少什么？请帮忙。

根据 Alexandar 的建议，我已将代码更改为 $lexer->from(*STDIN);并且能够成功地从标准输入读取。还更改了数字 [(-?\d+)|(-?\d+.\d*)]。现在当我将 43.4*15^2 输入到标准输入时，我得到的输出是：

Number 4
Number 3
Number .
Number 4
Operator *
Number 1
Number 5
Operator ^
Number 2
Can't call method "name" on an undefined value at listing1-1.pl line 20, <STDIN>.

这里第 20 行是 print $token->name, " ", $token->text,"\n"。

Answer 1

应该是 "Number -?\d+|-?\d+.\d*" 并且从 STDIN 读取 "from" 方法应该这样调用：

$lexer->from(\*STDIN);

更新完整代码，提供更好的错误处理和修复：

#!/usr/bin/perl

use Parse::Lex;

#defines the tokens
my @token=(qw(  
BegParen [\(]
EndParen [\)]
Operator [-+*/^]
Number   -?\d+(?:\.\d*)?
NEWLINE  \n
     ),
     qw(ERROR  (?s:.*)), sub {
       print STDERR "ERROR: buffer content->", $_[0]->lexer->buffer, "<-\n";
       die qq!can\'t analyze: "$_[1]"!;
     }
);
my $lexer=Parse::Lex->new(@token); #Specifies the lexer
$lexer->from(\*STDIN); #Specifies the input source

TOKEN:
while(1){ #1 will be returned unless EOI
  my $token=$lexer->next;
  if (not $lexer->eoi){
    print $token->name . " " . $token->text . " " . "\n";
  }
  else {last TOKEN;}
}

另见Parse::Lex documentation。