Sabtu, 19 Desember 2015

Percabangan Pada Perl

Pada tutorial kali ini, kita akan belajar tentang Percabangan (decision making) pada bahasa pemrograman Perl. Percabangan adalah sebuah pernyataan pada bahasa pemrograman, dimana statement akan dijalankan jika kondisi memenuhi syarat atau bernilai true.

If Statement In Perl


Bilangan 0 ataupun string '0' dan string kosong "", dan list kosong (empty list) serta undef merupakan nilai boolean. Sedangkan lainnya bernilai true.

Contoh Program

# Nama File: percabangan.pl

$bil1 = 100;
if ($bil1){
print "Masuk kondisi if bil1\n";
print ($bil1,"\n")
}

$bil2 = 0;
if ($bil2){
print "Masuk kondisi if bil2\n";
print ($bil2,"\n")
}

$string1 = "Selamat Belajar Perl";
if ($string1){
print "Masuk kondisi if string1\n";
print ($string1,"\n")
}

$string2 = "";
if ($string2){
print "Masuk kondisi if string2\n";
print ($string2,"\n")
}

print "Selesai" ;

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl d:\perl\percabangan.pl
Masuk kondisi if bil1
100
Masuk kondisi if string1
Selamat Belajar Perl
Selesai

Ada beberapa tipe percabangan pada bahasa pemrograman Perl, yaitu:
  • if statement
  • if...else statement
  • if...elseif...else statement
  • unless statement
  • unless...else statement
  • switch statement

if statement


IF statement digunakan untuk menyeleksi suatu ekspresi atau kondisi, jika bernilai benar (true) maka pernyataan atau statement akan dijalankan.

Di bawah ini adalah sintak dasar if statement:

if(boolean_expression){
# statemnt dijalankan jika boolean_expression bernilai true
}

Contoh Program

# Nama File: percabangan_if.pl

$a = 15;

if( $a < 25 ){
# jika $a kurang dari 25, statement di bawah akan dijalankan
printf "$a kurang dari 20\n";
}
print "Nilai a adalah : $a\n";

$x = "";

if( $x ){
printf "$x mempunyai nilai true\n";
}
print "Nilai x adalah : $x\n";

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl d:\perl\percabangan_if.pl
15 kurang dari 20
Nilai a adalah : 15
Nilai x adalah :


if...else statement


if..else statement akan menyeleksi sebuah ekspresi, jika bernilai true akan menjalankan statement1, sedangkan jika bernilai false akan menjalankan statement2.

Di bawah ini adalah sintak dasar dari if...else statement pada Perl:

if(boolean_expression){
# statement1 akan dijalankan jika boolean_expression bernilai true
}else{
# statement2 akan dijalankan jika boolean_expression bernilai false
}

Contoh Progam

# Nama File: percabangan_ifelse.pl

$a = 15;

if( $a < 25 ){
# jika $a kurang dari 25, statement di bawah akan dijalankan
printf "$a kurang dari 20\n";
}else{
printf "$a lebih dari 20\n";
}
print "Nilai a adalah : $a\n";

$x = "";

if( $x ){
printf "$x mempunyai nilai true\n";
}else{
printf "$x mempunyai nilai false\n";
}
print "Nilai x adalah : $x\n";

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl d:\perl\percabangan_ifelse.pl
15 kurang dari 20
Nilai a adalah : 15
mempunyai nilai false
Nilai x adalah :


if...elseif...else statement


if...elseif...else statement digunakan menyeleksi beberapa ekspresi (lebih dari satu), apabila eskpresi1 pertama bernilai true, maka akan dijalankan statement1, jika ekspresi2 kedua bernilai true, maka akan dijalankan statement2, dan seterusnya.

Di bawah ini adalah sintak dasari dari if...elseif...else statement di Perl:

if(boolean_expression 1){
# akan dijalankan jika boolean_expression 1 bernilai true
}
elsif( boolean_expression 2){
# akan dijalankan jika boolean_expression 2 bernilai true
}
elsif( boolean_expression 3){
# akan dijalankan jika boolean_expression 3 bernilai true
}
else{
# akan dijalankan jika tidak memenuhi kondisi diatas
}

Contoh Program

# Nama File: percabangan_if_elseif_else.pl

$x = 75;
if( $x == 25 ){
printf "Nilai dari x adalah 25\n";
}elsif( $x == 35 ){
printf "Nilai dari x adalah 35\n";
}else{
printf "Nilai dari x adalah $x\n";
}

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl d:\perl\percabangan_if_elseif_else.pl
Nilai dari x adalah 75


unless statement


unless...else statement


switch statement


Sekian tutorial singkat tentang Percabangan pada Perl, semoga bermanfaat & Happy Learning Perl Programming.

Salam,

Nursalim

Bagikan

Jangan lewatkan

Percabangan Pada Perl
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.