perl eval throwing blank exception

Question

데이터베이스의 일부 레코드를 업데이트 중입니다. 그리고 모든 처리는 eval 블록에서 수행됩니다. 문제는 레코드가 성공적으로 업데이트 되더라도 예외가 발생하는 것입니다.

예외를 디버깅하려면 데이터 덤퍼를 사용하여 인쇄를 시도했지만 예외는 공백입니다.

언제든지이 오류의 원인을 식별하고 왜 때마다 오류가 발생하는지 알 수 있습니까?

환경 정보 (펄 5.8 및 유닉스 SUSE) 데이터 덤퍼에서

덤프 :

$VAR1 = ' 
'; 

I .. 이러한 레코드를 업데이트, 다양한 내부 API를 사용하고 그래서 찾아 내 코드를 수정 유사 :

 sub main{ 
     eval{ 
     DB->updateRecord($value) 
     }; 
     if($@){ 
      Mail->SendMail(__PACKAGE__,$@): 
     } 
     } 

     package DB; 
     sub updateRecord{ 
      my ($self , $value) = @_; 
      my $query = "update set column_value = $value ..<update query> "; 
      API->processQuery($query); 
     } 

Answer 1

코드 use warnings;이 맞습니까?

당신의 코드에서 문자열을 "\n"으로 전달한다는 내용의 증상이 나타납니다. 내 추측은 당신의 오류 메시지로 죽으려고 노력하고 있지만 귀하의 오류 메시지가 초기화되지 않은 귀하의 소스에있을 것입니다. 그것은 뭔가 some_test() 만약

my $error; 
if (some_test()) { 
    $error = 'Some String'; 
} 
if (some_other_test()) { 
    die "$error\n"; 
} 

같은 패스 할 수 있지만, 다이는 새로운 라인을 포함하는 오류를보고합니다 some_other_test() 실패 할 수 있습니다. 또한 경고가 활성화 된 경우 경고를 내 보냅니다.

또 다른 가능성은 오타입니다. use strict;이 아닌 경우 오류 변수가 올바르지 않을 수 있습니다. use strict;이없이

my $error = 'Some String'; 
if ($error) { 
    #note the typo (transposed ro to or) 
    die "$erorr\n"; 
} 

쉬운 실수를 놓칠 수 있습니다.