String 'eq'Perl의 초기화되지 않은 값

Question

내 Perl 스크립트 중 하나를 실행하는 경고가 나타납니다. 배열의 문자열이 다른 문자열과 같은지 테스트하는 간단한 if 문에서 오류가 발생합니다.

동료와 여러 가지 시나리오를 시도했지만 여전히 경고를 해결하지 못했습니다. 지금까지 모든 연구를이 스레드에 넣으려고 했으므로 조금 길어졌지만 그대로 사용하십시오. 나는 완전히 붙어있어 스택의 위대한 마음 중 하나를 기대하고있다   오버플로 나를 도울 수있다!

는

문제를 생성하는 코드는 다음과 같습니다

는

if ($pieces[0] eq "PromotionNumber") 

해당 섹션 주변의 코드 블록은 다음과 같습니다

my @pieces = split(/=/, $var); 
if($pieces[0] eq "PromotionNumber") { 
    $promoNumber = $pieces[1]; 
} elsif ($pieces[0] eq "Type") { 
# More similar code follows 

위의 코드에서 내 목표는 내가 찾은 모든 변수를 할당하는 것입니다

텍스트 파일에서 각 Perl 변수에 적용됩니다. 그런 다음 발견 된 변수를 SQL 데이터베이스에 삽입합니다.

텍스트 파일에는 다른 순서로 표시 될 수있는 여러 필드가 있습니다. 따라서 스위치 스타일을 if-elsif ...로 사용하여 값 할당을 수행합니다. 레벨과 같은 관심이없는 필드도 있습니다. 필드를 무시합니다. 그러나이 필드는 경고를 발생시키는 필드입니다.

$var 그것을 통해 루프로 다음과 같이 설정됩니다 ...

PromotionNumber=000 
RecordOffset=0 
Code=0 
SubCode=1 
Level=0 

내가 공격 "레벨 = 0", 나는 PerlIDE.exe 디버거에서 일시 정지 문자열을 분할이라고 볼 수있다 레벨 및 0으로 삽입하여 배열에 삽입하십시오. 그러나 코드가 if 문으로 넘어 가서 $pieces[0] eq "PromotionNumber"을 테스트하자마자 경고 메시지가 나타납니다.

if 문 바로 앞에 $ pieces [0]을 인쇄 할 수 있으며 "수준"이 인쇄됩니다. 나는에 코드를 변경하는 경우

내가 두 번째 "수준"문자열을 테스트 할 경우, 그러나 ... 경고가 사라집니다

my @pieces = split(/=/, $var); 
if($pieces[0] eq "Level") { 
    #My problematic variable test 
}elsif($pieces[0] eq "PromotionNumber") { 
    $promoNumber = $pieces[1]; 
} elsif ($pieces[0] eq "Type") { 
#More similar code follows 

다음은 경고가 다시 온다. 아래 코드에는 경고가 있습니다.

my @pieces = split(/=/, $var); 
if($pieces[0] eq "PromotionNumber") { 
    #My problematic variable test 
}elsif($pieces[0] eq "Level") { 
    $promoNumber = $pieces[1]; 
} elsif ($pieces[0] eq "Type") { 
#More similar code follows 

왜 내가 어떤 순서로 테스트합니까? 참고,이 경고를주지 않는 if-elsif 문에서 여러 개의 elsif가있는 여러 문자열을 테스트하고 있습니다.

아이디어가 있으십니까? 이 경고를 지워서 콘솔을 넘치지 않도록해야합니다. 스크립트는 경고와 함께 작동합니다.

정확한 오류는 다음과 같습니다 japdpmrijob.pl 라인 PerlIDE 펄의 디버그 유틸리티를 사용하여 측정 오류 (250)

정확한 라인 (에서 문자열 EQ에서 초기화되지 않은 값의

사용.exe)는 다음과 같습니다.

if ($pieces[0] eq "PromotionNumber") { 

나는 $ pieces [0]을 출력하고 그 값을 볼 수 있습니다. 그래서 나는 그것이 내 가치로 정의된다는 것을 압니다. 또한 $ pieces [1]을 인쇄하고 예상 한 가치를 볼 수 있습니다. 먼저 $ pieces [0] eq "Level"을 테스트하면 경고가 사라지고 두 변수에 모두 액세스 할 수 있습니다.

난 아직도 혼란 스러워요 ...

오류가 실제로 변수로 플래그되는 "EQ"입니다 것 같습니다. 그것에 대한 아이디어가 있습니까?

아래에는 많은 코드가 있습니다. 나는 전체 for 루프와 함께 일하고있는 몇 가지 변수를 포함 시켰습니다. if-elsif-else 시퀀스 마지막 부분에 else 문이 있음을 알 수 있습니다. 세 번째 답변에서 언급 한 경고를 중지하기 위해이 코드를 추가했습니다. 이 else 문은 경고가 호출 될 때마다 예상 값을 인쇄하므로 값이 있음을 알 수 있습니다.

for my $cond (@conditions) { 
    if($debug==1){print $cond."\n";} 

    # Required database variables 
    my $isRecord = 0; 
    my $promoNumber; 
    my $type; 
    my $process; 
    my $testValue; 
    my $recordOffset; 
    my $code; 
    my $subcode; 
    my $itemType; 
    my $itemValue; 

    # Function test variables 
    my $itemTypeVar; 
    my $newQualifier = 1; 

    # Database Configuration 
    my $dbApps = new Win32::ODBC("myDatabase") || die "Error: " . Win32::ODBC::Error(); 
    my @condVars = split(/\|/, $cond); 
    for my $var (@condVars) { 
     if($debug==1){print $var."\n";} 
     my @pieces = split(/=/, $var); 
     if(defined($pieces[0])){ 
      print "piece 0 defined!\n"; 
     } else { 
      print "pieces 0 not defined!\n"; 
     } 
     if(defined($pieces[1])){ 
      print "piece 1 defined!\n"; 
     } else { 
      print "piece 1 not defined!\n"; 
     } 
     if($pieces[0] eq "PromotionNumber"){ 
      $promoNumber = $pieces[1]; 
     } elsif ($pieces[0] eq "Type"){ 
      $type = $pieces[1]; 
     } elsif ($pieces[0] eq "Process"){ 
      $process = $pieces[1]; 
     } elsif ($pieces[0] eq "TestValue"){ 
      $testValue = $pieces[1]; 
     } elsif ($pieces[0] eq "RecordOffset"){ 
      $recordOffset = $pieces[1]; 
      if ($recordOffset == 0) { 
       $newQualifier = 1; } 
     } elsif ($pieces[0] eq "Code"){ 
      $code = $pieces[1]; 
     } elsif ($pieces[0] eq "SubCode"){ 
      $subcode = $pieces[1]; 
     } elsif ($pieces[0] eq "ItemType"){ 
      $itemType = $pieces[1]; 
      if($itemType eq "0") { 
       $itemTypeVar = "ItemCode"; 
      } elsif($itemType eq "1") { 
       $itemTypeVar = "ItemCode"; 
      } elsif($itemType eq "2") { 
       $itemTypeVar = "Department"; 
      } elsif($itemType eq "5") { 
       $itemTypeVar = "MixMatchCode"; 
      } elsif($itemType eq "12") { 
       $itemTypeVar = "GroupCode"; 
      } 
     } elsif ($pieces[0] eq $itemTypeVar){ 
      $itemValue = $pieces[1]; 
     } else { 
      print "$pieces[0] and $pieces[1] not used.\n"; 
     } 
     print "$var\n"; 
    } 
} 

Answer 1

잘못된 장소에서 오류를 찾고 있다고 생각합니다. if-elsif-else 문 또는 다른 복잡한 코드 블록 내에서 트리거 된 경고의 경우 이전 버전의 Perl에서는 경고문을 명령문의 첫 번째 줄에서 발생하는 것으로 식별 할 수 있습니다.

------ warn.pl ------ 
my $x = 0; 
my $y; 
if ($x == 1) {   # line 3 
} elsif ($x == 2) { 
} elsif ($x == 3) { 
} elsif ($y == 4) { # line 7 
} 

$ perl5.14.2 -w warn.pl 
Use of uninitialized value $y in numeric eq (==) at warn.pl line 7. 

$ perl5.8.6 -w warn.pl 
Use of uninitialized value in numeric eq (==) at line 3. 

Answer 2

비교하기 전에 $pieces[0]이 정의되어 있는지 확인할 수 있습니다. 대부분의 경우 경고가 표시되지 않습니다.

my @pieces = split(/=/, $var); 
my $label = defined($pieces[0]) ? $pieces[0] : ""; #if not defined init to "" 
my $value = defined($pieces[1]) ? $pieces[1] : ""; 
if($label eq "PromotionNumber") { 
    $promoNumber = $value; 
} elsif ($label eq "Type") { 
#More similar code follows