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.plJika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:
$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" ;
C:\>perl d:\perl\percabangan.plAda beberapa tipe percabangan pada bahasa pemrograman Perl, yaitu:
Masuk kondisi if bil1
100
Masuk kondisi if string1
Selamat Belajar Perl
Selesai
- 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){Contoh Program
# statemnt dijalankan jika boolean_expression bernilai true
}
# Nama File: percabangan_if.plJika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:
$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";
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.plJika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:
$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";
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){Contoh Program
# 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
}
# Nama File: percabangan_if_elseif_else.plJika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:
$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";
}
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
Percabangan Pada Perl
4/
5
Oleh
Kris Kimcil