[perl] 엄격 및 경고를 사용하는 이유는 무엇입니까?

분명히 use strict(필수)는이 선언을 강제 할 수있는 제대로 코드에 힘 펄을 할 때 문자열과 잠수정에 명시되고, 사용할 수는 barewords을 즉 또는주의 심판을 사용한다. 참고 : 오류가있는 경우 strict를 사용하면 사용되는 경우 실행이 중단됩니다.

use warnings;세미콜론을 놓친 것과 같은 프로그램에서 입력 실수를 찾는 데 도움이 되지만 ‘elsif’가 아닌 ‘elseif’를 사용했습니다. 사용되지 않는 구문이나 함수를 사용하고 있습니다. 참고 : 경고 사용은 경고 만 제공하고 실행을 계속합니다. 즉, 실행을 중단하지 않습니다.

어쨌든 아래에서 자세히 설명하는 것이 더 나을 것입니다.

에서 perl.com (내가 좋아하는) :

엄격한 ‘vars’를 사용하십시오.

즉, 변수를 사용하기 전에 항상 변수를 선언해야합니다.

선언하지 않으면 선언되지 않은 변수에 대한 오류 메시지가 표시됩니다.

전역 기호 “$ variablename”에는 scriptname.pl 행 3에 명시적인 패키지 이름이 필요합니다.

이 경고는 Perl이 변수의 범위에 대해 정확히 명확하지 않다는 것을 의미합니다. 따라서 변수에 대해 명시해야합니다. 즉, 변수를 선언 my하여 현재 블록으로 제한하거나 정규화 된 이름 (예 : $ MAIN :: variablename)으로 참조해야합니다.

따라서 다음 기준 중 하나 이상을 충족하지 않는 변수에 액세스하려고하면 컴파일 타임 오류가 트리거됩니다.

• @ARGV, % ENV와 같은 Perl 자체 및 $와 같은 모든 전역 구두점 변수에 의해 미리 정의됩니다. 또는 $ _.

• our (글로벌 용) 또는 my (어휘 용)로 선언되었습니다.

• 다른 패키지에서 가져 왔습니다. (사용 vars pragma는 가져 오기를 위조하지만 대신 사용합니다.)

• 패키지 이름과 이중 콜론 패키지 구분 기호를 사용하여 정규화되었습니다.

엄격한 ‘구독자’를 사용하십시오.

두 가지 프로그램 고려

# prog 1
   $a = test_value;
   print "First program: ", $a, "\n";
   sub test_value { return "test passed"; }
 Output: First program's result: test_value

# prog 2
   sub test_value { return "test passed"; }
   $a = test_value;
   print "Second program: ", $a, "\n";
 Output: Second program's result: test passed

두 경우 모두 test_value () 하위가 있고 그 결과를 $ a에 넣고 싶습니다. 그러나 두 프로그램을 실행하면 두 가지 다른 결과가 나타납니다.

첫 번째 프로그램에서 우리가에 도달하는 시점 $a = test_value;에서 Perl은 test_value () 하위를 알지 못하며 test_value는 문자열 ‘test_value’로 해석됩니다. 두 번째 프로그램에서 test_value ()의 정의는 $a = test_value;줄 앞에옵니다 . Perl은 test_value를 하위 호출로 생각합니다.

subs 일 수 있고 컨텍스트에 따라 문자열 일 수있는 test_value와 같은 격리 된 단어의 기술 용어는 bareword 입니다. Perl의 베어 워드 처리는 혼란 스러울 수 있으며 프로그램에서 버그를 유발할 수 있습니다.

버그는 우리가 첫 번째 프로그램에서 만난 것입니다. Perl은 찾을 것을 기대하지 않을 것입니다 test_value(). 따라서 아직 test_value ()를 보지 못했기 때문에 문자열을 원한다고 가정합니다. 따라서이 use strict subs;프로그램은 오류와 함께 종료됩니다.

Bareword “test_value”는 ./a6-strictsubs.pl 행 3에서 “strict subs”를 사용하는 동안 허용되지 않습니다.

이 오류에 대한 해결책은
1입니다. 괄호를 사용하여 하위를 호출하고 있음을 명확히합니다. Perl에 $ a = test_value ();가 표시되면
2. 처음 사용하기 전에 하위를 선언합니다.

use strict;
sub test_value;  # Declares that there's a test_value() coming later ...
my $a = test_value;  # ...so Perl will know this line is okay.
.......
sub test_value { return "test_passed"; }

3. 그리고 그것을 문자열로 사용하려는 경우 인용하십시오.

따라서 이러한 제한으로 인해 Perl은 모든 베어 워드를 구문 오류로 취급합니다. * 베어 워드 는 컨텍스트에 의해 강제되는 다른 해석이없는 이름 또는 식별자입니다. (컨텍스트는 종종 근처의 키워드 나 토큰 또는 해당 단어의 사전 선언에 의해 강제됩니다.) * 따라서 문자열로 사용하려는 경우 인용하고 함수 호출로 사용하려는 경우 사전 선언 또는 괄호를 사용하십시오.

베어 워드는 이러한 예측할 수없는 동작으로 인해 위험합니다. use strict; (or use strict 'subs';)미래에 이상한 동작을 유발할 수있는 베어 워드는 프로그램이 혼란을 일으키기 전에 죽게 할 것이기 때문입니다.

엄격한 구독을 켰을 때도 베어 워드를 사용해도 괜찮은 곳이 있습니다 : 해시 키를 할당 할 때입니다.

$hash{sample} = 6;   # Same as $hash{'sample'} = 6
%other_hash = ( pie => 'apple' );

해시 키의 베어 워드는 항상 문자열로 해석되므로 모호성이 없습니다.

엄격한 ‘refs’를 사용하십시오.

의도적 으로든 아니든 기호 참조를 사용하면 런타임 오류가 발생합니다. 하드 참조가 아닌 값은 기호 참조 로 처리됩니다 . 즉, 참조는 전역 변수의 이름을 나타내는 문자열로 해석됩니다.

use strict 'refs';

$ref = \$foo;       # Store "real" (hard) reference.
print $$ref;        # Dereferencing is ok.

$ref = "foo";       # Store name of global (package) variable.
print $$ref;        # WRONG, run-time error under strict refs.

경고를 사용하십시오.

이 어휘 범위의 pragma를 사용하면 Perl의 내장 경고 (컴파일러와 런타임 시스템의 경고 모두)를 유연하게 제어 할 수 있습니다.

에서 perldiag:

따라서 아래 분류, 즉 W, D & S의 대부분의 경고 메시지는 warningspragma를 사용하여 제어 할 수 있습니다 .

(W) 경고 (선택 사항)
(D) 사용 중단 (기본적으로 활성화 됨)
(S) 심각한 경고 (기본적으로 활성화 됨)

자주 발생하는 경고 메시지를 분류별로 아래에 나열했습니다. 이들 및 기타 메시지에 대한 자세한 정보는 perldiag 를 참조하십시오.

(W) 경고 (선택 사항) :

% s에
인수가 없습니다.-% c에 인수가 없습니다
(대신 & % s을
(를) 의미 했습니까 ?) ( “our”대신 “local”
을 의미 했습니까 ?) (% 대신 $ 또는 @를 의미 했습니까?)
‘% s ‘은 코드 기준 아니다
%의 사용 길이 ()
숫자 _가 잘못된

(D) 지원 중단 (기본적으로 활성화 됨) :

defined (@array) is deprecated
defined (% hash) is deprecated
my () in false conditional
$ # is no longer supported

(S) 심각한 경고 (기본적으로 활성화 됨)

elseif는
연산자가 예상 한 위치에서 elsif % s을 (를) 찾았습니다
(% s 앞에 연산자가 없습니까?)
(이전 줄에 세미콜론이 없습니까?)
% s이 (가 ) % s
전에 연산자 또는 세미콜론이 누락 됨
우선 순위 문제 : 열려있는 % s가 열려 있어야합니다 (% s).
프로토 타입 불일치 : % s 대 % s
경고 : 괄호없이 “% s”를 사용하는 것은 모호합니다
. % s을 (를) 열 수 없습니다. % s

답변

use strict;
use warnings FATAL => 'all';