정의되지 않은 값에 방법 "setValue의"를 호출 할 수 없습니다 펄

Question

use strict; 
use warnings; 
use utf8; 
use 5.010; 
use HTML::HTML5::Parser; 

open (FILE, '<links.txt') ; 

my @lines = <FILE>; 
my $i; 
my $a = $lines[$i]; 

my $xml = HTML::HTML5::Parser->load_html(location => $a) ; 

는 오류가 발생했습니다 : C에서 정의되지 않은 값에 "setValue에"방법을 호출 할 수 없습니다 ":/Dwimperl/펄/사이트/lib 디렉토리/ HTML/HTML5/Parser/TagSoupParser.pm 라인 2946 "

먼저 if를 삽입하고 값을 정의하려고했지만 작동하지 않습니다.

저는 Perl을 배우기 시작했습니다. 누구나 이걸 도와 줄 수 있습니까?

Answer 1

use strict; 
use warnings; 
use utf8; 
use 5.010; 
use HTML::HTML5::Parser; 
use Try::Tiny; 

open (my $FILE, '<', 'links.txt') ; 
my @lines = <$FILE>; 
my $i = 0; 
foreach my $a (@lines) { 
    my $xml = try { 
     HTML::HTML5::Parser->load_html(location => $a) 
    } catch { 
     warn "Bad line [$i][$a]"; 
     warn "Actual error: $_"; 
    }; 
    $i++; 
} 

나는 실제로 구성해야하는데 방법으로 내 추측으로 코드를 정리하고, 문제 라인을 식별하는 방법을 보여주기 위해 (Try::Tiny 사용) try/catch 블록을 추가했습니다.

실제로 문제를 진단하기 전에 어떤 입력이 문제를 일으키는 지 식별해야합니다.