无法对未定义的值调用方法“get_token”

Question

每当我运行 TokeParser 时，我都会收到这个未定义的错误。我认为这是因为它从 HTML 中提取的最后一件事是导致错误的“undef”，但我确定这是否正确，或者如果是这样的话该怎么办。

#!usr/bin/perl
use warnings;
use strict;

use HTML::TokeParser;

sub findTokens {
    my $htmlFileName = "83.html";

    my $p = HTML::TokeParser->new($htmlFileName);
    my @tokens;

    while (my $newChunk = $p->get_token) {
            if ($newChunk->[0] eq 'T') {
                my @lineArray = split(' ', $newChunk->[1]);
                foreach my $i (@lineArray) {
                    if ( lc($i) =~ /^[a-z]*\-?'?s?$/) {
                        push(@tokens, lc($i));
                    }
                }
            }
    }
    return @tokens;
}

Answer 1

很明显$p是undef，$p是HTML::TokeParser->new($htmlFileName)的结果。这意味着打开文件时出错。正如概要中所建议的那样，使用以下方法来确定该错误是什么：

my $p = HTML::TokeParser->new($htmlFileName)
   or die("Can't open $htmlFileName: $!\n");