Perl에서 부울 변수를 어떻게 사용합니까?

나는 시도했다 :

$var = false;
$var = FALSE;
$var = False;

이 중 어느 것도 작동하지 않습니다. 오류 메시지가 나타납니다

"엄격한 하위"가 사용되는 동안 Bareword "false"는 허용되지 않습니다.

Perl에서 다음은 조건부에서 false로 평가됩니다.

0
'0'
undef
''  # Empty scalar
()  # Empty list
('')

나머지는 사실입니다. true또는에 대한 축약어가 없습니다 false.

내가 본 거짓에 대한 가장 완전하고 간결한 정의는 다음과 같습니다.

빈 문자열 또는 문자열로 문자열을 지정하는 0것은 모두 거짓입니다. 그 밖의 모든 것이 사실입니다.

따라서 다음 값은 false입니다.

• 빈 문자열
• 숫자 값 0
• 정의되지 않은 값
• 위 중 하나를 평가하는 오버로드 된 부울 연산자가있는 오브젝트입니다.
• 가져 오기에서 위 중 하나로 평가되는 마법 변수입니다.

빈 목록 리터럴은 스칼라 컨텍스트에서 정의되지 않은 값으로 평가되므로 잘못된 것으로 평가됩니다.

"참 제로"에 대한 메모

0문자열 화하는 숫자 는 거짓 이지만 0으로 숫자 화되는 문자열은 반드시 그런 것은 아닙니다. 유일한 잘못된 문자열은 0빈 문자열입니다. 다른 문자열은 0으로 계산 되더라도 사실입니다.

다음은 부울로 true이고 숫자로 0 인 문자열입니다.

• 경고없이 :
  • "0.0"
  • "0E0"
  • "00"
  • "+0"
  • "-0"
  • " 0"
  • "0\n"
  • ".0"
  • "0."
  • "0 but true"
  • "\t00"
  • "\n0e1"
  • "+0.e-9"
• 경고와 함께 :
  • Scalar::Util::looks_like_numberfalse 를 반환 하는 모든 문자열 (예를 들어 "abc")

Perl에는 기본 부울 유형이 없지만 동일한 동작을 얻기 위해 정수 또는 문자열 비교를 사용할 수 있습니다. Alan의 예는 정수 비교를 사용하여 좋은 방법입니다. 여기에 예가 있습니다

my $boolean = 0;
if ( $boolean ) {
    print "$boolean evaluates to true\n";
} else {
    print "$boolean evaluates to false\n";
}

내 프로그램 중 일부에서 한 가지 작업은 상수를 사용하여 동일한 동작을 추가합니다.

#!/usr/bin/perl

use strict;
use warnings;

use constant false => 0;
use constant true  => 1;

my $val1 = true;
my $val2 = false;

print $val1, " && ", $val2;
if ( $val1 && $val2 ) {
    print " evaluates to true.\n";
} else {
    print " evaluates to false.\n";
}

print $val1, " || ", $val2;
if ( $val1 || $val2 ) {
    print " evaluates to true.\n";
} else {
    print " evaluates to false.\n";
}

"상수 사용"으로 표시된 행은 항상 1로 평가되는 true라는 상수와 항상 0으로 평가되는 false라는 상수를 정의합니다. 상수가 Perl에 정의 된 방식으로 인해 다음 코드 행도 실패합니다.

true = 0;
true = false;

오류 메시지는 "스칼라 할당에서 상수를 수정할 수 없습니다"와 같은 내용이어야합니다.

나는 문자열 비교에 관해 당신이 한 의견에서 그것을 보았다. Perl은 스칼라 변수에서 문자열과 숫자 유형을 결합하므로 문자열과 숫자를 비교하기위한 구문이 다릅니다.

my $var1 = "5.0";
my $var2 = "5";

print "using operator eq\n";
if ( $var1 eq $var2 ) {
    print "$var1 and $var2 are equal!\n";
} else {
    print "$var1 and $var2 are not equal!\n";
}

print "using operator ==\n";
if ( $var1 == $var2 ) {
    print "$var1 and $var2 are equal!\n";
} else {
    print "$var1 and $var2 are not equal!\n";
}

이 연산자들의 차이점은 Perl에서 매우 일반적인 혼란의 원인입니다.

나는 추천한다 use boolean;. cpan 에서 부울 모듈 을 설치해야합니다 .

내 즐겨 찾기는 항상

use constant FALSE => 1==0;
use constant TRUE => not FALSE;

내부 표현과는 완전히 독립적입니다.

나는 Perl에서 어떤 값이 참인지 거짓인지 잘 설명 하는 튜토리얼 을 보았습니다 . 상태는 다음과 같습니다.

다음 스칼라 값은 거짓으로 간주됩니다.

• undef -정의되지 않은 값
• 0 000 또는 0.0으로 쓰더라도 숫자 0
• '' 빈 문자열
• '0' 단일 0 자리를 포함하는 문자열

다음을 포함한 다른 모든 스칼라 값은 true입니다.

• 1 0이 아닌 숫자
• ' ' 공백이있는 문자열
• '00' 문자열에서 둘 이상의 0 문자
• "0\n" 0 다음에 줄 바꿈
• 'true'
• 'false' 예, 문자열 'false'조차도 true로 평가됩니다.

Perl true 및 false 에 대해 설명하는 또 다른 좋은 자습서가 있습니다.

부울 값에 대해 bobf 가 제공하는 아름다운 설명 : True 또는 False? 빠른 참조 안내서

다른 가치에 대한 진실 테스트

                       Result of the expression when $var is:

Expression          | 1      | '0.0'  | a string | 0     | empty str | undef
--------------------+--------+--------+----------+-------+-----------+-------
if( $var )          | true   | true   | true     | false | false     | false
if( defined $var )  | true   | true   | true     | true  | true      | false
if( $var eq '' )    | false  | false  | false    | false | true      | true
if( $var == 0 )     | false  | true   | true     | true  | true      | true

다음 파일 접두사를 사용하면 펄 스크립트 eTRUE 및 eFALSE에 추가되며 실제로는 REAL (!) true 및 false입니다 (Java와 동일).

#!/usr/bin/perl
use strict;
use warnings;

use constant { #real true false, compatible with encode_json decode_json for later (we don't want field:false... will be field:0...)
                eTRUE  =>  bless( do{\(my $o = 1)}, 'JSON::PP::Boolean' ),
                eFALSE =>  bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' )
             };

실제로 사용해야하는 데는 몇 가지 이유가 있습니다.

내 이유는 JSON으로 작업 할 때 키 값으로 0과 1을 얻었지만이 해킹은 올바른 값이 스크립트와 함께 유지되도록합니다.