Web Hosting by Netfirms | Free Domain Names by Netfirms

Penggunaan Operator if dan else

Program di atas dapat dimodifikasi untuk menampilkan pesan jika dua angka bernilai sama dan pesan lainnya digunakan jika dua angka yang dimasukkan tidak bernilai sama. Untuk melakukan hal tersebut digunakan pernyataan if-else. Baris program berikut menggunakan program di atas dengan memodifikasi ekspresi kondisi menggunakan pernyataan if-else.

#!/usr/bin/perl

print ("Masukkan sebuah angka : \n");

$angka1 = <STDIN>;

chop ($angka1);

print ("Masukkan angka lain :\n");

$angka2 = <STDIN>;

chop ($angka2);

if ($angka1 == $angka2)

{

print ("Kedua angka tersebut sama\n");

}

else {

print ("Kedua Angka tersebut tidak sama\n");

}

print ("Ini merupakan baris akhir program\n");

Keluaran dari program di atas seperti berikut.

Masukkan sebuah angka :

9

Masukkan angka lain :

6

Kedua Angka tersebut tidak sama

Ini merupakan baris akhir program

Baris 2-7 memiliki kesamaan dengan baris program sebelumnya, yang digunakan untuk membaca dua angka, dan menyimpan nilainya ke dalam variabel $angka1 dan $angka2. Terakhir perintah chop digunakan untuk mengambil karakter terakhir yang berada pada tiap masukan angka pada variabel. Baris 8 digunakan untuk membandingkan nilai yang diletakkan pada variabel $angka1 dan variabel $angka2. Jika kedua nilai yang dibandingkan sama, baris 9 dieksekusi dan pesan berikut akan ditampilkan.

Kedua Angka tersebut tidak sama

Interpreter perl kemudian melewati pernyataan pertama setelah pernyataan if-else pada baris 13. Jika  dua nilai yang dibandingkan tidak sama, interpreter perl kemudian menampilkan pesan bahwa kedua nilai tidak sama. Pada kedua kasus interpreter juga mengeksekusi baris perintah terakhir yang memberitahukan bahwa ini merupakan akhir dari baris program.

Pernyataan if-else memiliki sintaks seperti berikut.

If (ekspresi) {

Blok_pernyataan_1

} else {

blok_pernyataan_2

}

Penggunaan Operator elsif

Selain ekspresi di atas, perl juga menyediakan pernyataan kondisi yang memilih satu diantara lebih dari dua alternatif. Pernyataan kondisi ini menggunakan if-elsif-else. Untuk memudahkan pemahaman menggunakan pernyataan tersebut, ekspresi kondisi ini bisa diikuti pada contoh program berikut.

#!/usr/bin/perl

print ("Masukkan angka pertama:\n");

$angka1 = <STDIN>;

chop ($angka1);

print ("Masukkan angka kedua:\n");

$angka2 = <STDIN>;

chop ($angka2);

if ($angka1 == $angka2) {

print ("Kedua angka bernilai sama\n");

}

elsif ($angka1 == $angka2 + 1) {

print ("Angka pertama lebih besar 1 angka \n");

}

elsif ($angka1 + 1 == $angka2) {

print ("Angka kedua lebih besar 1 angka \n");

}

else {

print ("Kedua angka tersebut tidak sama\n");

}

print ("Ini adalah akhir dari program\n");

Contoh keluaran jika program tersebut dijalankan seperti berikut

Masukkan angka pertama:

5

Masukkan angka kedua:

6

Angka kedua lebih besar 1 angka

Ini adalah akhir dari program 

Baris 2-7 mungkin dengan mudah dapat dipahami karena digunakan pada contoh program sebelumnya. Seperti biasa baris ini meminta masukan dari standar input, yaitu untuk $angka1 dan $angka2 dan menyimpannya pada variabel masing-masing. Terakhir masing-masing nilai dilakukan perintah chop untuk mengambil karakter terakhir dari nilai pada variabel. Baris 9 di atas melakukan pengecekan apakah kedua angka bernilai sama, jika ya, baris berikutnya akan dieksekusi untuk menampilkan pesan bahwa kedua nilai tersebut sama. Interpreter perl akan langsung melewati beberapa ekspresi jika kedua nilai yang dibandingkan tidak sama menuju baris 18 yang menampilkan pesan bahwa kedua nilai tersebut tidak sama. Baris 11 digunakan untuk perbandingan lainnya. Ekspresi ini akan menambahkan 1 angka ke variabel $angka2 dan melakukan perbandingan dengan $angka1. Jika hasilnya sama, perl akan mengeksekusi baris 12 dan menampilkan pesan bahwa angka pertama lebih besar 1 angka. Interpreter perl juga langsung menuju baris akhir untuk menampilkan pesan akhir dari progam. Jika ekspresi kondisi pada baris 11 salah, interpreter perl menuju ke baris 14. Baris ini menambahkan 1 angka pada variabel $angka1. Jika kedua nilai sama perl akan mengeksekusi baris 15, yang akan menampilkan pesan bahwa angka kedua lebih besar 1 angka. Jika ekspresi pada baris 14 dinyatakan salah, perl menuju ke baris 16 dan mengeksekusi perintah bahwa kedua angka yang dimasukkan bernilai tidak sama.

Sintaks dari if-elsif-else menggunakan pernyataan seperti berikut.

If (ekspresi_1) {

blok_pernyataan_1

} elsif (ekspresi_2) {

blok_pernyataan_2) {

} elsif (ekspresi_3) {

blok_pernyataan_3

.................................................

} else {

blok_pernyataan

}

Ekspresi pada if-elsif-else pada dasarnya hanya merupakan penambahan pada pernyataan if-else. Sintaks if-elsif-else dapat dituliskan dengan menghilangkan pernyataan else seperti pada contoh berikut.

If (ekspresi_1) {

blok_pernyataan_1

} elsif (ekspresi_2) {

blok_pernyataan_2

} elsif (ekspresi_3) {

..............................

}

Pada sintaks seperti ini, jika pada setiap ekspresi tidak ada yang memiliki nilai benar, perl hanya akan melewati setiap pernyataan menuju ke pernyataan berikutnya.