Perl 오류 전역 심볼에 명시 적 패키지 이름이 필요합니다.

Question

perl에서 중첩 데이터 (매우 복잡한) 데이터 구조에 액세스하는 코드를 작성했습니다.

<%method searchFeatureInFG> 
<%args> 
$featureGroup 
$featureNameHash 
</%args> 
<%init> 
my $foundFeature = 0; 
my $foundGroup = undef; 
my $foundIndex = undef; 
if(defined $featureGroup && defined $featureNameHash){ 
    for(my $i = 0; $i < @$featureGroup; $i++){ 
    #print "<pre>".Data::Dumper::Dumper($featureGroup->[$i]->{'features'})."</pre>"; 
    if(ref($featureGroup->[$i]) eq 'HASH'){ 
     if(defined $featureNameHash->{$featureGroup->[$i]->{'name'}}){ 
      $foundGroup = $featureGroup; 
      $foundIndex = $i; 
      $foundFeature = 1; 
     } 
     elsif(defined $featureGroup->[$i]->{'features'}){ 
      for(my $j = 0; $j<scalar @{$featureGroup->[$i]->{'features'}} ; $j++){ 
      for(my $k=0;$k<scalar @{$featureGroup->[$i]->{'features'}->[$j]->{'features'}};$k++) { 
       if (defined $featureGroup->[$i]->{'features'}->[$j]->{'features'}->[$k]->{'name'}) { 
        print $featureGroup->[$i]->{'features'}->[$j]->{'features'}->[$k]->{'name'}."\n"; 
        } 
      } 
      last if !defined $featureGroup->[$i+1]->{'features'}; 
      } 
    } 
    } 
    }elsif(defined $featureNameHash->{$featureGroup->[$i]}){ 
      $foundFeature = 1; 
      $foundGroup = $featureGroup; 
      $foundIndex = $i; 
    } 
    last if($foundFeature); 
    } 
} 
return ($foundFeature, $foundGroup, $foundIndex); 

</%init> 
</%method> 

이렇게하면 다음과 같은 오류가 표시됩니다.

Global symbol "$i" requires explicit package name at 
Global symbol "$foundFeature" requires explicit package name at 
Global symbol "$foundGroup" requires explicit package name at 
Global symbol "$featureGroup" requires explicit package name at 
Global symbol "$foundIndex" requires explicit package name at 

이러한 오류는 무엇을 의미합니까?

Answer 1

범위 지정 문제로 인해 이러한 오류가 발생합니다. 당신은 처음에 라인

for(my $i = 0; $i < @$featureGroup; $i++){ 

에 $i를 정의하지만 나중에 for 루프의 외부에서 사용하려고 처음

Global symbol "$i" requires explicit package name at 

를 살펴 보자. Perl은 $i이 for 루프 내에서만 정의되기 때문에 이러한 오류를 줄 것입니다 (아마도 여러분이 엄격하게 사용해야하므로).

, 즉 즉시 <%init> 후 당신이 그 코드를 작성했습니다 어떻게

my $i 
my $foundFeature 
...