PERL – Operator Aritmatik
Opertor aritmatik digunakan untuk perhitungan. Operasi aritmatik yang dapat dilakukan oleh PERL: penambahan, pengurangan, perkalian, pembagian, eksponen dan mod (sisa bagi).
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
";
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:
Arithmetic Operators:
Operator Aritmatika
a = 3 dan b = 2
5
1
6
1.5
9
1
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
|
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)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";
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: 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
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.
