Bagaimana cara menggunakan variabel boolean di Perl?

Saya telah mencoba:

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

Tak satu pun dari ini bekerja. Saya mendapatkan pesan kesalahan

Bareword "false" tidak diizinkan saat "subs ketat" sedang digunakan.

Dalam Perl, yang berikut ini bernilai false dalam kondisi:

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

Sisanya benar. Tidak ada kata kunci untuk trueatau false.

Definisi palsu paling lengkap dan ringkas yang pernah saya temui adalah:

Apa pun yang merangkai ke string kosong atau string 0itu salah. Yang lainnya benar.

Oleh karena itu, nilai-nilai berikut ini salah:

• String kosong
• Nilai numerik nol
• Nilai yang tidak ditentukan
• Objek dengan operator boolean yang kelebihan beban yang mengevaluasi salah satu di atas.
• Variabel ajaib yang mengevaluasi salah satu di atas saat mengambil.

Perlu diingat bahwa daftar literal kosong mengevaluasi ke nilai yang tidak ditentukan dalam konteks skalar, jadi itu mengevaluasi ke sesuatu yang salah.

Catatan tentang "nol sejati"

Meskipun angka yang dirujuk 0salah, string yang numify ke nol belum tentu. Satu-satunya string palsu adalah 0dan string kosong. String lain, bahkan jika numify menjadi nol, adalah benar.

Berikut ini adalah string yang benar sebagai boolean dan nol sebagai angka:

• Tanpa peringatan:
  • "0.0"
  • "0E0"
  • "00"
  • "+0"
  • "-0"
  • " 0"
  • "0\n"
  • ".0"
  • "0."
  • "0 but true"
  • "\t00"
  • "\n0e1"
  • "+0.e-9"
• Dengan peringatan:
  • String apa pun yang Scalar::Util::looks_like_numbermengembalikan false. (mis. "abc")

Perl tidak memiliki tipe boolean asli, tetapi Anda dapat menggunakan perbandingan bilangan bulat atau string untuk mendapatkan perilaku yang sama. Contoh Alan adalah cara yang baik untuk melakukannya dengan menggunakan perbandingan bilangan bulat. Ini sebuah contoh

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

Satu hal yang saya lakukan di beberapa program saya adalah menambahkan perilaku yang sama menggunakan konstanta:

#!/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";
}

Baris yang ditandai dalam "use constant" mendefinisikan konstanta bernama true yang selalu mengevaluasi ke 1, dan konstanta bernama false yang selalu dievaluasi oleh 0. Karena cara konstanta didefinisikan dalam Perl, baris kode berikut juga gagal:

true = 0;
true = false;

Pesan kesalahan harus mengatakan sesuatu seperti "Tidak dapat mengubah konstan dalam tugas skalar."

Saya melihat bahwa di salah satu komentar Anda bertanya tentang membandingkan string. Anda harus tahu bahwa karena Perl menggabungkan string dan tipe numerik dalam variabel skalar, Anda memiliki sintaks berbeda untuk membandingkan string dan angka:

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";
}

Perbedaan antara operator ini adalah sumber kebingungan yang sangat umum di Perl.

Saya merekomendasikan use boolean;. Anda harus menginstal modul boolean dari cpan.

Favorit saya selalu begitu

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

yang sepenuhnya independen dari representasi internal.

Saya menemukan tutorial yang memiliki penjelasan yang baik tentang Nilai-nilai apa yang benar dan salah di Perl . Ini menyatakan bahwa:

Nilai skalar berikut ini dianggap salah:

• undef - nilai yang tidak ditentukan
• 0 angka 0, bahkan jika Anda menuliskannya sebagai 000 atau 0,0
• '' string kosong.
• '0' string yang berisi 0 digit tunggal.

Semua nilai skalar lainnya, termasuk yang berikut ini benar:

• 1 nomor bukan-0
• ' ' string dengan spasi di dalamnya
• '00' dua atau lebih 0 karakter dalam sebuah string
• "0\n" a 0 diikuti oleh baris baru
• 'true'
• 'false' ya, bahkan string 'false' dinilai benar.

Ada tutorial bagus lainnya yang menjelaskan tentang Perl benar dan salah .

Penjelasan indah yang diberikan oleh bobf untuk nilai Boolean: Benar atau Salah? Panduan Referensi Cepat

Tes kebenaran untuk nilai yang berbeda

                       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

gunakan awalan file berikut, ini akan menambah skrip perl Anda eTRUE dan eFALSE, itu sebenarnya akan REAL (!) benar dan salah (seperti 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' )
             };

Sebenarnya, ada beberapa alasan mengapa Anda harus menggunakannya.

Alasan saya adalah bahwa bekerja dengan JSON, saya punya 0 dan 1 sebagai nilai untuk kunci, tetapi peretasan ini akan memastikan nilai yang benar disimpan di sepanjang skrip Anda.