펄 : <p>문자열을 사용할 수 없습니다</p> : 엄격한 심판 "은"

Question

경고 다루는 것은 내가이 나에게 무서운 경고를 제공

my $test_case_list = [ 
    +{  
     label => &config->current->{'DBI'}[0], 
     expected => 'dbi:mysql:dbname=investometrica', 
     },  
     +{  
      label => &config->current->{'maintenance_file_path'}[0], 
      expected => '/var/tmp/', 
     },  
    ];   


    for my $test_case_item (@$test_case_list) { 
    my $label = @{ $test_case_item->{label} }; 
    my $expected = @{ $test_case_item->{expected} }; 
    is ($label, $expected, "Match");                                             
    } 

이 "동안 ARRAY 심판으로 문자열 XX를 사용할 수 없습니다" ("dbi : mysql : dbname = investometrica")를 ARRAY ref로, config.t 행 25에서 "strict refs"를 사용합니다.

내가 뭘 잘못하고 있니?

Answer 1

@$test_case_list의 항목은 해시 참조이며 키는 label 및 expected입니다. 두 키의 값은 배열 참조가 아닌 스칼라입니다. 따라서 배열 참조로 취급해서는 안됩니다. 그러나 @{ $test_case_item->{label} }과 같이 @{...}을 사용하면이 작업이 수행됩니다. 그들은 이미 원하는 값을 가진 스칼라이기 때문에 대신 $test_case_item->{label}으로 가야합니다.