Operator Bahasa Pemrograman PERL

PERL – Operator Aritmatik

Opertor aritmatik digunakan untuk perhitungan. Operasi aritmatik yang dapat dilakukan oleh PERL: penambahan, pengurangan, perkalian, pembagian, eksponen dan mod (sisa bagi).

PERL Arithmetic:

file arithmatic.pl

#!/usr/bin/perl


print "Content-type: text/html\n\n";
print "Operator aritmatika
";
$a=3;
$b=2;
$tambah=$a + $b;
$kurang=$a - $b;
$kali=$a * $b;
$bagi=$a / $b;
$pangkat=$a ** $b;
$sisa=$a % $b;

print "a = ". $a." dan b = ".$b;
print "


$tambah

$kurang

$kali

$bagi


$pangkat

$sisa
";

keluaran arithmatic.pl:

Operator Aritmatika
a = 3 dan b = 2
5
1
6
1.5
9
1

Arithmetic Operators:

Operator	Contoh	Hasil	Keterangan
+	7 + 7	= 14	Penambahan
-	7 - 7	= 0	Pengurangan
*	7 * 7	= 49	Peralian
/	7 / 7	= 1	Pembagian
**	7 ** 7	= 823543	Pangkat
%	7 % 7	= 0	Sisa Bagi

PERL – Assingment Operator

Assingment operator digunakan untuk menetapkan variabel misalnya $ x = 5.Penggunaan assingment operator digunakan juga untuk perhitungan.Setiap kali melakukan operasi operator assingment memegang variabel nilai baru.Contoh :

PERL ssignment:

#!/usr/bin/perl

print "content-type: text/html \n\n"; #the header
$x = 5; #the variable

print 'Our $x plus 10 is '.($x += 10);
print "
$x is our new variable value";
print '
Our $x minus 3 is '.($x -= 3);

print "
$x is our new variable value";
print '
Our $x times 10 is '.($x *= 10);
print "
$x is our new variable value";
print '
Our $x divided by 10 is '.($x /= 10);

print "
$x is our new variable value";
print '
the remainder of Our $x divided by 10 is '.($x %= 10);
print "
$x is our new variable value";
print '
Our $x to the tenth power is '.($x **= 10);
print "
$x is our new variable value";

setiap kali operator assignment menyimpan nilai suatu variabel akan merubah secara permanen variabel tersebut ($x)

assignments.pl:

Our $x plus 10 is 15
15 is our new variable value
Our $x minus 3 is 12
12 is our new variable value
Our $x times 10 is 120
120 is our new variable value

Our $x divided by 10 is 12
12 is our new variable value
the remainder of Our $x divided by 10 is 2
2 is our new variable value
Our $x to the tenth power is 1024
1024 is our new variable value

Assignment Operators: 

perator	Definisi	Contoh
+=	Penjumlahan	($x += 10)
-=	Pengurangan	($x -= 10)
*=	Perkalian	($x *= 10)
/=	Pembagian	($x /= 10)
%=	Sisa pembagian	($x %= 10)
**=	Eksponensial	($x **= 10)
++	Penambahan dengan 1	($x++)
--	Penguranagan dengan 1	($x--)

PERL - Operator Logika & Relational 

Operator penghubung menghubungkan suatu variable dengan variable lainnya, untuk contoh 5 < 12 ini digunakan untuk menghubungkan persamaan atau bukan persamaan dari dua atau lebih variabel, bisa berupa sebuah data string atau numeric.

Operator logika penghubung status and/or. Artinya, anda dapat mengambil dua variabel dan memeriksa keduanya atau mengujinya. Operator logika digunakan kemudian didalam kondisional dan pengulangan. Perhatikan contoh – contoh dibawah.

Operator Logika/ Relational:

Relational

Operator	Contoh	Definisi	Hasil
==, eq	5 == 5 5 eq 5	Test: Apakah 5 sama dengan 5?	True
!=, ne	7 != 2 7 ne 2	Test: Apakah 7 tidak sama dengan 2?	True
<, lt	7 < 4 7 lt 4	Test: Apakah 7 kurang dari 4?	False
>, gt	7 > 4 7 gt 4	Test: Apakah 7 lebih dari 4?	True
<=,le	7 <= 11 7 le 11	Test: Apakah 7 kurang dari atau sama dengan 11?	True
>=, ge	7 >= 11 7 ge 11	Test: Apakah 7 lebih dari atau sama dengan 11?	False

Logika 

Operator	Definisi	Contoh
&&,and	Menghubungkan dua variable dengan AND	if (($x && $y) == 5)...
||,or	Menghubungkan dua variable dengan OR	if (($x || $y) == 5)...

Operator logika biasa digunakan jika anda akan membuat program yang membutuhkan kondisi dari program yang akan anda buat, dan ini adalah dasar dari semua bahasa pemrograman, sehingga dengan penguasaan yang baik pada operator logika kemungkinan Anda akan lebih mudah dalam membuat program/aplilkasi yang baik dan terstruktur.