Perl에서 경고 메시지, 예외 정보 캡처 및 로그 세부 정보 쓰기
한편으로는 코드 앞에서use warnings를 보안망으로 사용하고 싶고, 다른 한편으로는 화면에 경고가 나타납니다.대부분의 경우 고객은 이 경고를 어떻게 처리해야 할지 모른다.만약 운이 좋다면 이 경고들은 단지 고객을 놀라게 할 뿐이다. 물론 불행하게도 그들은 그것들을 복구하려고 시도하고 있다.(여기서 말하는 것은 Perl 프로그래머가 아니다.)
세 번째는 경고를 저장해서 분석하고 싶을지도 모른다.
그 밖에 많은 곳에서 Perl 스크립트와 응용 프로그램이 use warnings를 사용하지 않고 #!행에서 -w를 사용합니다.use warnings를 추가하면 대량의 경고가 발생할 수 있습니다.
장기적으로는 당연히 이런 경고를 없애야 하지만 단기적으로는?
장기적인 계획이라도 버그가 전혀 없는 코드를 쓸 수 없고, 응용 프로그램이 앞으로 경고 메시지를 영원히 출력하지 않을 것을 보장할 수 없다.
할 수 있겠소?
너는 경고가 화면에 인쇄되기 전에 그것들을 잡을 수 있다.
신호
Perl에는%SIG라는 내장hash표가 있는데 그 중의 키는 운영체제 신호의 이름이다.대응하는 값은 함수 (대다수는 함수 인용) 이며, 이 함수들은 특정한 신호가 촉발될 때 호출된다.
Perl은 시스템에서 제공하는 표준 신호 외에 두 개의 내부 신호를 추가했습니다.그중 하나는
본고에서 우리는 이것이 어떻게 경고 메시지에 영향을 미치는지 볼 수 있다.
익명 함수
sub {}는 익명 함수, 즉 함수체만 있고 이름이 없는 함수입니다.(이 예에서도 함수체는 비어 있지만, 나는 네가 나의 뜻을 이해하길 바란다.)
캡처 경고 - 처리 안 함
다음 코드를 추가하는 경우:
local $SIG{__WARN__} = sub {
#
};
경고 캡처 - 예외로 변환
You could also write: 너도 다음과 같이 쓸 수 있다.
local $SIG{__WARN__} = sub {
die;
};
이상에 경고 메시지를 포함하려면 다음과 같이 하십시오.
local $SIG{__WARN__} = sub {
my $message = shift;
die $message;
};
경고 캡처 - 로그 작성
너는 아마도 중간에서 다른 일을 하고 싶을 것이다.
시끄러운 경고 메시지를 필터링하고 나중에 분석합니다.
local $SIG{__WARN__} = sub {
my $message = shift;
logger($message);
};
일지를 쓰다
응용 프로그램에 로그 메커니즘이 있다고 가정해 보세요.없으면 덧붙이는 게 좋겠어요.설령 네가 추가할 수 없다 하더라도, 너는 운영체제의 내장 로그 메커니즘이 필요하다.예를 들어 Linux의syslog, MS Windows의 Event Logger, 다른 운영체제도 그들 내부의 로그 메커니즘을 가지고 있다.
본고의 예에서 우리는 자제logger () 함수를 사용하여 이 생각을 대표한다.
로그를 캡처하고 쓰는 전체 예
#!/usr/bin/perl
use strict;
use warnings;
local $SIG{__WARN__} = sub {
my $message = shift;
logger('warning', $message);
};
my $counter;
count();
print "$counter
";
sub count {
$counter = $counter + 42;
}
sub logger {
my ($level, $msg) = @_;
if (open my $out, '>>', 'log.txt') {
chomp $msg;
print $out "$level - $msg
";
}
}
Use of uninitialized value in addition (+) at code_with_warnings.pl line 14.
경고 처리 함수의 경고 정보
__WARN__처리 함수가 실행되는 동안 자동으로 비활성화됩니다.따라서 경고 처리 함수 실행 과정에서 발생하는 (신규) 경고 정보는 무한 순환을 일으키지 않습니다.
퍼블릭 문서에서 더 많은 세부 사항을 알 수 있습니다.
Avoid multiple warnings
주의해야 할 것은 중복된 경고 메시지가 로그 파일을 가득 채울 수 있다는 것이다.나는 반복 경고 정보의 수를 줄이기 위해 간단한 캐시 기능을 사용할 수 있다.
#!/usr/bin/perl
use strict;
use warnings;
my %WARNS;
local $SIG{__WARN__} = sub {
my $message = shift;
return if $WARNS{$message}++;
logger('warning', $message);
};
my $counter;
count();
print "$counter
";
$counter = undef;
count();
sub count {
$counter = $counter + 42;
}
sub logger {
my ($level, $msg) = @_;
if (open my $out, '>>', 'log.txt') {
chomp $msg;
print $out "$level - $msg
";
}
}
우리도 __WARN__의 처리 함수를 약간 복잡한 버전으로 바꿉니다.
my %WARNS;
local $SIG{__WARN__} = sub {
my $message = shift;
return if $WARNS{$message}++;
logger('warning', $message);
};
너는 우리가 uniquevalues in an array에서도 같은 아이디어를 사용했다는 것을 기억할 수 있다.
로컬이 뭐예요?
위의 모든 예에서 나는local 함수로 온돌 (경고 처리) 효과를 침식한다.엄밀히 말하면, 이러한 예에서 우리는 이렇게 할 필요가 없다. 왜냐하면 이 코드들이 메인 스크립트의 첫 번째 부분이라고 가정하기 때문이다.이런 상황에서는 상관없다. 어쨌든 전체 작용역 안에 있기 때문이다.
그러나 이렇게 쓰는 것이 가장 좋다.
local는 모듈에서 변경을 제한하는 데 매우 중요하다.특히 발표할 모듈은국부화되지 않으면 전체 응용 프로그램에 영향을 줄 수 있다.limit는 영향을 닫힌 코드 블록에 제한합니다.
전역적인%WARNS 사용 방지
Perl 5.10이나 업데이트된 버전을 사용하고 있다면, 전역 변수%WARNS를 바꾸기 위해 코드를 바꿀 수 있습니다.이렇게 하려면 스크립트의 시작에use v5.10을 사용해야 합니다.그리고 익명 함수 내부에서state 키워드를 사용하여 변수를 설명합니다.
#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
local $SIG{__WARN__} = sub {
state %WARNS;
my $message = shift;
return if $WARNS{$message}++;
logger('warning', $message);
};
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
cowsay로 현장 고양이에 요시! 되고 싶은 건업무 중에도 현장 고양이에 요시! 하고 싶었기 때문에, cowsay 를 사용해 어떻게든 해 보았습니다. cowsay는 말할 것도없이 오징어 한 서버에 적합한 매혹적인 도구입니다. 살벌한 우리 마음에 일복의 청량을 줍...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
