Referensi Belajar Komputer: Percabangan Pada Perl

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.

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