Pernyataan Bersyarat Perl - IF ... ELSE

Pernyataan kondisional Perl membantu dalam pengambilan keputusan, yang mengharuskan programmer menentukan satu atau lebih kondisi untuk dievaluasi atau diuji oleh program, bersama dengan pernyataan atau pernyataan yang akan dieksekusi jika kondisi ditentukan benar, dan secara opsional, lainnya pernyataan yang akan dieksekusi jika kondisi ditentukan sebagai salah.

Berikut ini adalah gambaran umum dari struktur pengambilan keputusan khas yang ditemukan di sebagian besar bahasa pemrograman -

Angka 0, string '0' dan "", daftar kosong (), dan undef semuanya false dalam konteks boolean dan semua nilai lainnya adalah true. Negasi dari nilai sebenarnya sebesar! atau not mengembalikan nilai palsu khusus.

Bahasa pemrograman Perl menyediakan tipe pernyataan kondisional berikut ini.

Sr.No.	Pernyataan & Deskripsi
1	jika pernyataan Sebuah if statement terdiri dari ekspresi boolean yang diikuti oleh satu atau beberapa pernyataan.
2	jika ... pernyataan lain Sebuah if statement bisa diikuti dengan opsional else statement.
3	jika ... elsif ... pernyataan lain Sebuah if statement bisa diikuti dengan opsional elsif statement dan kemudian dengan pilihan else statement.
4	kecuali pernyataan Sebuah unless statement terdiri dari ekspresi boolean yang diikuti oleh satu atau beberapa pernyataan.
5	kecuali ... pernyataan lain Sebuah unless statement bisa diikuti dengan opsional else statement.
6	kecuali ... elsif..lain pernyataan Sebuah unless statement bisa diikuti dengan opsional elsif statement dan kemudian dengan pilihan else statement.
7	pernyataan switch Dengan versi Perl terbaru, Anda dapat menggunakan file switchpernyataan. yang memungkinkan cara sederhana untuk membandingkan nilai variabel dengan berbagai kondisi.

Itu? : Operator

Mari kita periksa conditional operator ? :yang bisa digunakan untuk menggantikan if...elsepernyataan. Ini memiliki bentuk umum berikut -

Exp1 ? Exp2 : Exp3;

Dimana Exp1, Exp2, dan Exp3 adalah ekspresi. Perhatikan penggunaan dan penempatan titik dua.

Nilai sebuah? ekspresi ditentukan seperti ini: Exp1 dievaluasi. Jika benar, maka Exp2 dievaluasi dan menjadi nilai keseluruhan? ekspresi. Jika Exp1 salah, maka Exp3 dievaluasi dan nilainya menjadi nilai ekspresi. Di bawah ini adalah contoh sederhana yang menggunakan operator ini -

#!/usr/local/bin/perl
 
$name = "Ali";
$age = 10;

$status = ($age > 60 )? "A senior citizen" : "Not a senior citizen";

print "$name is  - $status\n";

Ini akan menghasilkan hasil sebagai berikut -

Ali is - Not a senior citizen