Belajar Perl ( Part III )

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 :  

1:  if(ekspresi_kondisi)  
2:    {  
3:    Perintah;  
4:    }   

• if - else   :

1:    if(ekspresi_kondisi)  
2:      {  
3:      Perintah1;  
4:      }   
5:    else  
6:     {  
7:      Perintah 2;  
8:      }  

• if – elsif – else : 

1:    if(ekspresi_kondisi1)  
2:      {  
3:      Perintah1;  
4:      }   
5:    elsif(ekspresi_kondisi2)  
6:      {  
7:      Perintah2;  
8:      }   
9:    else  
10:      {  
11:      Perintah3;  
12:      }  

Contoh dalam program :

1:    #!/usr/bin/perl  
2:    # contoh penggunaan percabangan if  
3:    # nama program : percabangan_if.pl  
4:    print "apakah anda senang membuat program ?\n";  
5:    print "jawaban anda (y/t): ";  
6:    $jawab=<STDIN>;  
7:    chomp($jawab);   
8:    if($jawab eq "y") # if tunggal  
9:       {  
10:        print "anda memang programmer sejati\n";  
11:       }  
12:    print "\n"; # spasi   
13:    print "siapa nama anda?\n";  
14:    print "nama anda: ";  
15:    $nama=<STDIN>;  
16:    chomp($nama);   
17:    if($nama eq "emje") # if-else  
18:       {  
19:       print "selamat datang emje !!!\n";  
20:       }   
21:    else  
22:       {  
23:       print "maaf, anda tidak dikenal\n";  
24:       }   
25:    print "\n";   
26:    print "berapa umur anda?\n";  
27:    print "umur anda: "  
28:    $umur=<STDIN>;  
29:    chomp($umur);   
30:    if($umur <= 13) # if-elsif-else  
31:      {  
32:       print "anda masih anak anak \n";   
33:      }   
34:    elsif($umur <= 20)   
35:      {   
36:       print "anda masih remaja \n";   
37:      }   
38:    else   
39:      {  
40:       print "anda sudah dewasa \n";   
41:      }   

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

• unless tunggal  

1:    unless(ekspresi_kondisi)  
2:      {  
3:      Perintah;  
4:      }   

•  unless - else 

1:    unless(ekspresi_kondisi)  
2:      {  
3:      Perintah1;  
4:      }   
5:    else   
6:      {  
7:      Perintah2;  
8:      }   

Contoh dalam program :  

1:  #!/usr/bin/perl  
2:  # contoh percabangan unless  
3:  # nama program : percabangan_unless.pl   
4:  $spp="belum lunas";  
5:  unless($spp eq "lunas") # unless tunggal  
6:  {  
7:  print "anda belum bayar spp\n";  
8:  }   
9:  print "\n"; # spasi  
10:  print "berapa jumlah sks yang sudah anda ambil ? \n";  
11:  print "sks anda : ";  
12:  $sks=<STDIN>;  
13:  chomp($sks);   
14:  unless($sks > 100) # unless - else  
15:  {  
16:  print "anda belum boleh mengambil kerja praktek\n";  
17:  }   
18:  else  
19:  {  
20:  print "anda sudah bisa mengambil kerja praktek\n";  
21:  }   

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 :

1:  for(keadaan awal ; syarat keadaan akhir ; increment/decrement)  
2:    {  
3:     daftar statement;  
4:    }   

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 :

1:  foreach $varname(array)  
2:    {  
3:     daftar statement;  
4:    }   

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. 

1:  while(ekspresi)  
2:    {  
3:    daftar statement;  
4:    }   

 

Perulangan do - while 

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

1:  do {  
2:    daftar statement;  
3:    } 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 :

1:  until(ekspresi)  
2:    {  
3:    daftar Statement;  
4:    }   

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 :

1:  do {  
2:    daftar statement;  
3:    } until ekspresi;   

Semoa Membantu.

Author : Dayat_eMJe