Pernyataan Perl KECUALI...ELSE

Pernyataan kecuali dapat diikuti dengan pernyataan opsional lain, yang dijalankan jika ekspresi Boolean bernilai benar.

tata bahasa

Format sintaksnya adalah sebagai berikut:

 kecuali(boolean_expression){ # jalankan ketika ekspresi boolean boolean_expression salah}else{ # jalankan ketika ekspresi boolean boolean_expression benar}

Jika ekspresi boolean boolean_expression salah, kode di dalam blok kecuali akan dieksekusi. Jika ekspresi Boolean benar, kode dalam blok else akan dieksekusi.

flow chart

Contoh

 #!/usr/bin/perl$a = 100;# Gunakan pernyataan kecuali untuk mendeteksi ekspresi Boolean kecuali( $a == 20 ){ # Ketika ekspresi Boolean salah, printf "Kondisi yang diberikan salahn" ; }else{ # Jika ekspresi Boolean benar, jalankan printf "Kondisi yang diberikan benarn";}print "Nilai a adalah: $an";$a = "";# Gunakan kecuali Pernyataan mendeteksi ekspresi Boolean kecuali( $a ){ # Jika ekspresi Boolean salah, jalankan printf "a Kondisi yang diberikan salahn";}else{ # Jika ekspresi Boolean benar, jalankan printf "a Kondisi yang diberikan adalah truen";}print "Nilai a adalah: $an";

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 Kondisi yang diberikan salah dan nilainya: 100a Kondisi yang diberikan salah dan nilainya adalah: