Web Hosting by Netfirms | Free Domain Names by Netfirms

Penggunaan operator ==

Perl memiliki beberapa operator yang digunakan untuk ekspresi kondisi. Salah satu operator yang seringkali digunakan adalah equality comparison opearator, ==. Operator == memiliki kesamaan dengan operator lainnya yang mensyaratkan adanya dua buah operand atau subekspresi. Kerja dari operator ini seperti berikut.

Jika terdapat dua pengujian subekspresi dengan nilai numerik sama, operator == menghasilkan nilai benar.

Jika dua subekspresi memiliki nilai yang berbeda, operator == akan mengeluarkan nilai salah.

Operator ini sering digunakan pada ekspresi kondisi, terutama untuk membandingkan dua kondisi, apakah bernilai benar atau salah. Contoh berikut menunjukkan penggunaan operator == yang membandingkan dua buah angka yang berasal dari standard input file.

#!/usr/bin/perl

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

$angka1 = <STDIN>;

chop ($angka1);

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

$angka2 = <STDIN>;

chop ($angka2);

if ($angka1 == $angka2) 

{

print ("Dua akan tersebut sama.\n");

}

print ("Akhir dari baris program.\n");

Jika program tersebut dijalankan, didapatkan hasil seperti berikut.

Masukkan sebuah angka :

4

Masukkan angka lainnya :

4

Dua angka tersebut sama.

Akhir dari baris program 

Baris 2-4 sama memiliki pernyataan yang sama dengan program-program sebelumnya. Pernyataan tersebut berfungsi untuk menampilkan pesan untuk memasukkan angka di layarm disimpan pada variabel $angka1 dan perintah chop akan mengambil karakter paling akhir dari nilai variabel. Baris 5-7 mengulangi proses yang sama untuk memasukkan angka kedua yang disimpan pada variabel $angka2. Pernyataan ekspresi kondisi untuk membandingkan dua nilai berada pada baris 8-10. baris 8 berisikan ekspresi pembanding berikut.

$angka1 == $angka2

Jika dua angka yang dimasukkan pada variabel $angka1 dan $angka2 bernilai sama, maka ekspresi kondisi dinyatakan bernilai benar. Jika ekspresi kondisi bernilai salah, program akan menampilkan perintah print pada baris akhir.