Perl Error “Can't call method ”get_tag“ on an undefined value at Parser.pl line 6”

StackOverflow https://stackoverflow.com/questions/12191086

Question

I wrote a simple perl script but i am getting this runtime error:

Can't call method "get_tag" on an undefined value at Parser.pl line 6

Below is my code:

#!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";
}

I have placed a file bad.html under the same directory of this perl program. Below is the code for bad.html

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

Please help me on the error in running my perl code.

Was it helpful?

Solution

The problem of not using:

use strict;
use warnings;

They save you hours! You missed a ; in the line use HTML::TokeParser.

You could write the script in a better way:

#!/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";
}
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow
scroll top