Perl HTML::解析器错误；未定义的子程序 &main::1

Question

我收到了错误

Undefined subroutine &main::1 called at /usr/local/lib/perl/5.10.0/HTML/Parser.pm line 102.

这是我的代码

#open (IN,  "<", "foo.html") or die "can't open source file: $!";

my $p = HTML::Parser->new( api_version => 3,
            start_h => [&start, "tagname, attr, text"],
            text_h  => [&text,  "text"],
            default_h   => [sub { print OUT shift }, "text"],
        );
$p->utf8_mode;
$p->empty_element_tags;
$p->ignore_elements(qw(br));

$p->parse_file("foo.html") or die "parsing failed: $!";
#while (<IN>) {
#    $p->parse($_) || die "parsing failed: $!";
#}
#$p->eof;
#close IN;

正如您在注释掉的部分中看到的那样，我也尝试过直接打开和调用 parse（运气同样不佳）。

文件确实可以正常打开。

Parser.pm line 102 是错误提到的是 parse_file 子例程，特别是调用 ->parse

的行

我不知道 parse 在哪里，它不在 HTML::Parser 中，我也没有在 HTML::Entities 中找到它，这是 HTML::Parser 唯一的依赖项。 =/ 恐怕我现在迷路了，PERL 最深奥的魔法对我来说仍然是个谜。

Answer 1

尝试使用\&start 和\&text：

my $p = HTML::Parser->new( api_version => 3,
        start_h => [\&start, "tagname, attr, text"],
        text_h  => [\&text,  "text"],
        default_h   => [sub { print OUT shift }, "text"],
    );

否则，您将传递调用 start() 和 text() 的结果，而不是将它们作为子引用。

Answer 2

在文档中说您应该使用\&start。如果您排除反斜杠，它将使用函数start 的返回值（这将使用@_ 作为参数列表，根据使用& 的正常子例程调用pragma）。这个值可以是1。

这是一个例子：

C:\perl>perl -we "$c=\&s; sub s { print 'yada' }; $c->();"
yada
C:\perl>perl -we "$c=&s; sub s { print 'yada' }; $c->();"
Undefined subroutine &main::1 called at -e line 1.
yada

不确定为什么会出现错误，但您可以更改它，看看是否有帮助。

哦，另外，您似乎没有使用use strict。使用 strict 时，我得到一个更有帮助的错误：

C:\perl>perl -we "use strict; my $c=&s; sub s { print 'a' }; $c->();"
Can't use string ("1") as a subroutine ref while "strict refs" in use at -e line