Pengenalan Operator Assignment (Penugasan) Pada Perl

Pada tutorial Perl kali ini, kita akan belajar tentang Operator Penugasan (Assignment Operator) 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