Pengenalan Operator Assignment (Penugasan) Pada Perl

Pada tutorial Perl kali ini, kita akan belajar tentang Operator Penugasan (Assignment Operator) Pada Perl.

Operator Penugasan Pada Perl


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

Share this

Related Posts

Previous
Next Post »