Perl 컴파일 타임 오류, 초기화되지 않은 값

Question

나는 perl에 문제가있다. 이건 내 프로그램입니다 : 셉 \ perl.pl 라인 \ \ 사용자 (30) 어떤 도움 등을 : C에서 문자열에서 초기화되지 않은 값 $ 가격의 사용 :

my $data = decode_json $json; 
my @infoids = keys %{$data -> {listinginfo}}; 

foreach my $infoid (@infoids) { 
my $price = $data -> {listinginfo}{$infoid}{converted_price}; 
print "$price" . "\n"; #30 
} 

나는 엄격하고 경고를 사용하고, 나는 오류를 얻고있다 왜 이런 일이 일어나고 있는지 정말 고맙게 생각합니다. 미리 감사드립니다.

셉은

편집 : 임 웹 사이트에 로그인이 코드를 사용하여, 나는 그것이 결함이있을 수 있습니다 생각합니다. 그것은 어떤 오류를 반환하지 않지만 성공적으로 나를 로그인하지 않습니다.

my $login = "https://steamcommunity.com/login/home/?goto=market%2F"; 
my $username = "USR"; 
my $password = "PASS"; 
my $mech = WWW::Mechanize->new(); 
$mech->cookie_jar(HTTP::Cookies->new()); 
$mech->get($login); 
$mech->form_name('loginForm'); 
$mech->field(login => $username); 
$mech->field(passwd => $password); 
$mech->click(); 

Answer 1

이 표현식은 $data -> {listinginfo}{$infoid}{converted_price};이 초기화되지 않았다고 생각합니다. 시도하십시오 my $price = defined $data -> {listinginfo}{$infoid}{converted_price} ?$data -> {listinginfo}{$infoid}{converted_price} : 0 ; 이것은 if.. then ..의 약식입니다.