Macam-Macam Operator Penugasan
Operator | Deskripsi | Contoh |
---|---|---|
= | Memberikan nilai | $c = $a + $b |
+= | Menambahkan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c += $a equivalent dengan $c = $c + $a |
-= | Mengurangkan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c -= $a equivalent dengan $c = $c - $a |
*= | Mengalikan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c *= $a equivalent dengan $c = $c * $a |
/= | Membagikan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c /= $a equivalent dengan $c = $c / $a |
%= | Me-modulus kan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c %= $a equivalent dengan $c = $c % $a |
**= | Mempangkatkan operand kiri dengan operand kanan, dan hasilnya disimpan pada operand kiri | $c **= $a equivalent dengan $c = $c ** $a |
Contoh Program
Berikut ini contoh implementasi operator penugasan dalam program Perl:
#assigment_operator.pl
$a = 20;
$b = 10;
print "Nilai dari \$a = $a dan Nilai dari \$b = $b\n";
$c = $a + $b;
print "After assignment Nilai C adalah \$c = $c\n";
$c += $a;
print "Nilai C sekarang \$c = $c setelah statement \$c += \$a\n";
$c -= $a;
print "Nilai C sekarang \$c = $c setelah statement \$c -= \$a\n";
$c *= $a;
print "Nilai C sekarang \$c = $c setelah statement \$c *= \$a\n";
$c /= $a;
print "Nilai C sekarang \$c = $c setelah statement \$c /= \$a\n";
$c %= $a;
print "Nilai C sekarang \$c = $c setelah statement \$c %= \$a\n";
#Merubah nilai operator $c dan $a
$c = 2;
$a = 4;
print "Nilai dari \$a = $a and Nilai dari \$c = $c\n";
$c **= $a;
print "Nilai C sekarang \$c = $c Nilai C sekarang \$c **= \$a\n";
Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:
C:\>perl d:\perl\assignment_operator.pl
Nilai dari $a = 20 dan Nilai dari $b = 10
After assignment Nilai C adalah $c = 30
Nilai C sekarang $c = 50 setelah statement $c += $a
Nilai C sekarang $c = 30 setelah statement $c -= $a
Nilai C sekarang $c = 600 setelah statement $c *= $a
Nilai C sekarang $c = 30 setelah statement $c /= $a
Nilai C sekarang $c = 10 setelah statement $c %= $a
Nilai dari $a = 4 and Nilai dari $c = 2
Nilai C sekarang $c = 16 Nilai C sekarang $c **= $a
Sekian tutorial singkat tentang Pengenalan Operator Assignment Pada Perl. Semoga bermanfaat & Happy Learning Perl Programming.
Salam,
Nursalim
Bagikan
Pengenalan Operator Assignment (Penugasan) Pada Perl
4/
5
Oleh
Kris Kimcil