Perl Ошибка «Не удается вызвать метод„get_tag“на неопределенное значение в Parser.pl строке 6»

Я написал простой скрипт на языке Perl, но я получаю эту ошибку во время выполнения:Perl Ошибка «Не удается вызвать метод„get_tag“на неопределенное значение в Parser.pl строке 6»

Невозможно вызвать метод «get_tag "на неопределенное значение в Parser.pl линии 6

Ниже мой код:

#!usr/bin/perl 
use HTML::TokeParser 
my $p=HTML::TokeParser->new('bad.html'); 
while (my $token=$p->get_tag('a')){ 
my $url=$token->[1]{href}; 
print "$url\n"; 
}

Я поместил файл bad.html в одной папке этой PERL программы. Ниже приведен код для bad.html

<html><body> 
<a href="https://www.Google.com">Google</a> 
<a href="https://www.yahoo.com">Yahoo</a> 
</body></html>

Пожалуйста, помогите мне на ошибки в управлении мой PERL код.

источник

2012-08-30 Praful Mathur

Проблема не используется:

use strict; 
use warnings;

Они сохранить вам часов! Вы пропустили ; в строке use HTML::TokeParser.

Вы могли бы написать сценарий в лучшую сторону:

#!/usr/bin/env perl 

use strict; 
use warnings; 

use HTML::TokeParser; 

my $p = HTML::TokeParser->new('bad.html'); 
while (my $token = $p->get_tag('a')) { 
    my $url = $token->[1]{href}; 
    print "$url\n"; 
}

источник

2012-08-30 06:33:04

Вот удивительный .. Просто очень маленькая ошибка с моей стороны только .. Большое спасибо, ребята. –

Perl Ошибка «Не удается вызвать метод„get_tag“на неопределенное значение в Parser.pl строке 6»

ответ

Смежные вопросы