Tutorial Belajar Program Lengkap: Pengenalan Operator Relasional Pada Perl

Jumat, 25 Desember 2015

Pengenalan Operator Relasional Pada Perl

Pada tutorial Perl kali ini, kita akan belajar tentang Pengenalan Operator Relasional Pada Perl.

Macam-Macam Operator Relasional

Berikut ini adalah tabel macam-macam operator relasional pada bahasa pemrograman Perl.

Operator	Deskripsi	Contoh
==	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A dan B bernilai sama	A==B
!=	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A dan B bernilai tidak sama	A!=B
<=>	digunakan untuk mengecek dua operand A dan B. Bernilai 1 jika A lebih besar dari B, bernilai 0 jika A sama dengan B dan bernilai -1 jika A lebih kecil dari B	A<=>B
>	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A lebih besar dari B	A>B
>=	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A lebih besar atau sama dengan B	A>=B
<	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A lebih kecil dari B	A<B
<=	digunakan untuk mengecek dua operand A dan B. Bernilai true jika A lebih kecil atau sama dengan B	A<=B

Contoh Program

Di bawah ini adalah contoh implementasi operator relasional pada program:

# Nama File: relational_operator.pl
 
$a = 21;
$b = 10;

print "Value of \$a = $a and value of \$b = $b\n";

if( $a == $b ){
   print "$a == \$b is true\n";
}else{
   print "\$a == \$b is not true\n";
}

if( $a != $b ){
   print "\$a != \$b is true\n";
}else{
   print "\$a != \$b is not true\n";
}

$c = $a <=> $b;
print "\$a <=> \$b returns $c\n";

if( $a > $b ){
   print "\$a > \$b is true\n";
}else{
   print "\$a > \$b is not true\n";
}

if( $a >= $b ){
   print "\$a >= \$b is true\n";
}else{
   print "\$a >= \$b is not true\n";
}

if( $a < $b ){
   print "\$a < \$b is true\n";
}else{
   print "\$a < \$b is not true\n";
}

if( $a <= $b ){
   print "\$a <= \$b is true\n";
}else{
   print "\$a <= \$b is not true\n";
}

Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:

C:\>perl d:\perl\relational_operator.pl
Value of $a = 21 and value of $b = 10
$a == $b is not true
$a != $b is true
$a <=> $b returns 1
$a > $b is true
$a >= $b is true
$a < $b is not true
$a <= $b is not true

Sekian tutorial singkat tentang Pengenalan Operator Relasional Pada Perl. Semoga bermanfaat & Happy Learning Perl Programming.

Salam,

Nursalim