perl - parse error using composed script

Question

when i use this script , its working fine i use HTML::TreeBuilder to parse html from a site

#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TreeBuilder;

use open ':std', ':encoding(UTF-8)';
my $base='https://myanimelist.net';
my $url="/anime/35849/Darling_in_the_FranXX";
my $page = get($base.$url) or die $!;
my $p = HTML::TreeBuilder->new_from_content( $page );

my @trips= $p->look_down(_tag=>'span',itemprop=>'description')->as_text;
foreach my $trip (@trips){
   print $trip;
}

but when i add it to this script it doesn't work

#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TreeBuilder;
my $ua = LWP::UserAgent->new();


my $mal = "https://myanimelist.net/search/all?q=darling";
my $response = $ua->request(HTTP::Request->new(GET => $mal));
my $rrs = $response->content;
while ($rrs =~ m/href=\"https:\/\/myanimelist.net\/anime\/(.*?)\" class=\"hoverinfo_trigger fw-b fl-l\"/g){
my $link = $1;
if ( $link !~ /video|season?_location=mal_h_m/ ) {
print ("https://myanimelist.net/$link\n");

use open ':std', ':encoding(UTF-8)';
my $base='https://myanimelist.net';
$fullink = "$link";
my $page = get($base.$fullink) or die $!;
my $p = HTML::TreeBuilder->new_from_content( $page );

my @trips= $p->look_down(_tag=>'span',itemprop=>'description')->as_text;
foreach my $trip (@trips){
   print $trip;
}
}
}

and i get this error code :

Invalid argument at name.pl line 19.

is there any way to fix it?

Well done on taking our advice and switching to a parser! :) Now if you want to learn Perl (as opposed to just solving this problem and moving on), I invite you to post you final program to Code Review when it works and tag it with perl and beginner. We'll give you some advice on how to improve it. — simbabque
– simbabque, Commented Apr 26, 2018 at 9:14

Andrey · Accepted Answer · 2018-04-25 20:18:03Z

3

There problem is here. Looks like you are missing anime:

my $page = get($base.$fullink) or die $!;

Try to replace it with:

my $url = $base.'/anime/'.$fullink;
my $page = get($url) or die $!;

Or replace:

my $base='https://myanimelist.net';

with

my $base='https://myanimelist.net/anime/';

edited Apr 25, 2018 at 20:18

answered Apr 25, 2018 at 20:10

Andrey

1,8281 gold badge17 silver badges28 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

perl - parse error using composed script

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related