Belajar Perl [bab III]

by Kadek Bagus
Decision / selection / percabangan

Percabangan di perl terdapat dua jenis yaitu if dan unless. Pada if blok perintah akan dijalankan jika syarat atau kondisi di dalam if terpenuhi. Bentuk if di perl mirip seperti di bahasa c.

* if tunggal :

if(ekspresi_kondisi)
{
Perintah;
}

* if - else :

if(ekspresi_kondisi)
{
Perintah1;
}

else
{
Perintah 2;
}

* if – elsif – else :

if(ekspresi_kondisi1)
{
Perintah1;
}

elsif(ekspresi_kondisi2)
{
Perintah2;
}

else
{
Perintah3;
}

Contoh dalam program :

#!/usr/bin/perl
# contoh penggunaan percabangan if
# nama program : percabangan_if.pl

print "apakah anda senang membuat program ?\n";
print "jawaban anda (y/t): ";
$jawab=;
chomp($jawab);

if($jawab eq "y") # if tunggal
{
print "anda memang programmer sejati\n";
}

print "\n"; # spasi


print "siapa nama anda?\n";
print "nama anda: ";
$nama=;
chomp($nama);

if($nama eq "tony") # if-else
{
print "selamat datang tony !!!\n";
}
else
{
print "maaf, anda tidak dikenal\n";
}

print "\n";

print "berapa umur anda?\n";
print "umur anda: "
$umur=;
chomp($umur);

if($umur <= 13) # if-elsif-else
{
print "anda masih anak anak \n";
}

elsif($umur <= 20)
{
print "anda masih remaja \n";
}

else
{
print "anda sudah dewasa \n";
}

Sedangkan untuk unless kebalikan dari if yaitu perintah akan dijalankan jika kondisi tidak terpenuhi.

* unless tunggal

unless(ekspresi_kondisi)

{
Perintah;
}

* unless - else

unless(ekspresi_kondisi)

{
Perintah1;
}

else

{
Perintah2;
}

Contoh dalam program :

#!/usr/bin/perl
# contoh percabangan unless
# nama program : percabangan_unless.pl

$spp="belum lunas";

unless($spp eq "lunas") # unless tunggal
{
print "anda belum bayar spp\n";
}

print "\n"; # spasi
print "berapa jumlah sks yang sudah anda ambil ? \n";
print "sks anda : ";
$sks=;
chomp($sks);

unless($sks > 100) # unless - else
{
print "anda belum boleh mengambil kerja praktek\n";
}

else
{
print "anda sudah bisa mengambil kerja praktek\n";
}





Looping / perulangan

Untuk mengulang suatu blok perintah digunakan perulangan. Perulangan di perl antara lain statemen for, foreach, while, do - while, until dan do - until. Untuk lebih jelasnya kita akan bahas satu per satu :



Perulangan for

For di perl sama seperti for di bahasa C/C++ maupun bahasa C like lainya. Bentuk unumnya adalah sebagai berikut :

for(keadaan awal ; syarat keadaan akhir ; increment/decrement)
{
daftar statement;
}

Perulangan foreach

Anda masih ingat dengan array? Bila tadi untuk statement for, pengulangan nya ditentukan berdasarkan inkrementasi, maka untuk statement foreach, pengulangannya ditentukan oleh jumlah anggota array. Anda masih ingat bukan bahwa jumlah anggota array dapat dihitung dengan menggunakan @array. Inilah yang digunakan sebagai pengendali bila anda membuat pengulangan dengan statement foreach

foreach $varname(array)
{
daftar statement;
}



Perulangan while

Berbeda dengan statement for dan foreach, statement while digunakan bila kita ingin mengendalikan proses pengulangan bukan berdasarkan jumlah pengulangannya , melainkan berdasarkan suatu syarat. Selama syarat tersebut masih terpenuhi, pengulangan akan terus berlangsung. Tetapi bila syarat tidak lagi terpenuhi, perulangan akan berhenti.

while(ekspresi)
{
daftar statement;
}


Perulangan do - while

Statement do - while tidak jauh berbeda dengan statement while. Prinsip kerjanya sama, tetapi strukturnya adalah sebagai berikut :

do {
daftar statement;
} while ekspresi;



Perulangan until

Statement until juga menggunakan syarat tertentu sebagai pengendali pengulangan. Berbeda dengan statement while, pada statement until pengulangan justru dilakukan selama syarat tidak dipenuhi. Begitu syarat dipenuhi, pengulangan akan berakhir. Strukturnya sebagai berikut :

until(ekspresi)
{
daftar Statement;
}


Perulangan do - until

Statement do - until tidak berbeda fungsinya dengan statement until, oleh karena itu kita tidak akan membahasnya lebih jauh. Strukturnya sendiri adalah sebagai berikut :

do {
daftar statement;
} until ekspresi;