Web Hosting by Netfirms | Free Domain Names by Netfirms

Penulisan Looping Menggunakan while

Sejauh ini pernyataan kondisi yang dibahas sangat memungkinkan perl untuk melakukan pengujian di antara beberapa alternatif pilihan. Pernyataan kondisi di atas memiliki kesamaan, di mana terdapat ekspresi yang tidak dieksekusi sama sekali atau dieksekusi hanya sekali. Perl memiliki kemungkinan untuk menuliskan pernyataan terkondisi yang memberitahukan ke interpreter perl untuk mengulangi sebuah blok pernyataan hingga beberapa kali. Sebuah blok pernyataan yang dapat dijalankan beberapa kali sering dikenal dengan nama loop.

Cara termudah untuk menuliskan sebuah loop pada perl adalah dengan menggunakan pernyataan while. Contoh penggunaan pernyataan while seperti berikut.

While ($angka == 6) {

print ("Angka yang digunakan masih 6!\n");

}

Struktur yang digunakan pada pernyataan while memiliki kesamaan dengan pernyataan if, yang membedakan adalah cara kerja kedua pernyataan. Ekspresi pada while menggunakan cara berikut. Pertama, dilakukan pengujian ekspresi kondisi yang berada diantara tanda kurung.

Jika ekspresi kondisi bernilai benar, blok pernyataan yang berada di antara { dan } akan dieksekusi. Jika ekspresi bernilai salah, blok pernyataan akan dilewatkan, dan perl menuju ke pernyataan menggunakan while. Jika blok pernyataan diekekusi, interpreter perl kembali ke awal dari pernyataan while, dan melakukan pengujian ekspresi kondisi seperti sebelumnya. Blok pernyataan pada while selalu diulangi sampai ekspresi kondisi menjadi bernilai sakah. Hal ini berarti bahwa pernyataan

While ($angka == 6) {

print ("Angka yang digunakan masih 6!\n");

}

akan terus melakukan looping jika nilai pada $angka adalah 6, karena nilai dari $angka tidak berubah dan ekspresi kondisi yang digunakan bernilai benar. Berikut merupakan contoh program yang menggunakan pernyataan while.

#!/usr/bin/perl

$awal = 0;

$count = 1;

print ("Baris ini akan ditampilkan sebelum proses looping\n");

while ($awal ==0) {

print ("Nilai dari count adalah ",$count,"\n");

if ($count == 3) {

$awal = 1;

}

$count = $count +1;

}

print ("Akhir proses looping\n");

Keluaran dari program berikut adalah :

Baris ini akan ditampilkan sebelum proses looping

Nilai dari count adalah 1

Nilai dari count adalah 2

Nilai dari count adalah 3

Akhir proses looping

Baris 2-4 di atas mempersiapkan proses looping. Baris 2 digunakan untuk memberikan nilai 0 pada variabel $awal. Baris 3 memberikan nilai 1 untuk variabel $count. Sedangkan pada baris 4 digunakan hanya untuk menampilkan pesan awal proses looping dimulai. Pernyataan while berada pada baris 5-11. baris 5 ini berisikan ekspresi kondisi yang diuji. Jika ekspresi yang diuji bernilai benar, blok pernyataan yang berada pada baris 7-11 dieksekusi. Baris 6 menampilkan nilai dari variabel $count. Sampai disini variabel $count memiliki nilai 1 dan menampilkan pesan ke layar monitor. Baris 8-10 dilakukan pengujian sampai dengan nilai variabel menjadi 3. Dikarenakan nilai $count adalah 1, maka ekspresi kondisi pada baris 7 bernilai salah, dan interpreter perl langsung melewati sampai dengan baris 10. Baris 11 menambahkan nilai 1 ke dalam $count sehingga nilai variabel menjadi 2. Sampai pada bagian ini interpreter perl kembali ke baris 5 dan mengulangi proses pengulangan. Berikut adalah logika selengkapnya dari program di atas.

• Baris 5 : Jika nilai $awal ==0 benar, program dilanjutkan.
• Baris 6 : Tampilkan pada monitor Nilai dari count adalah 2.
• Baris 8: $count bernilai 2, $count == 3 bernilai salah, maka lanjutkan ke baris 10.
• Baris 10 : Tambahkan nilai 1 ke dalam $count, sehingga menjadi 3.
• Baris 11 : kembali ke baris 5 untuk melakukan proses looping.
• Baris 6 : Nilai dari $awal = 0 adalah benar, sehingga program dilanjutkan.
• Baris 7 : Tampilkan Nilai dari count adalah 3 pada layar.
• Baris 8 : $count bernilai 3; dan dilakukan pengujian dengan menggunakan $count == 3 dan bernilai benar, sehingga blok pernyataan if diekekusi.
• Baris 9 : $awal diset menjadi 1. Eksekusi dilanjutkan dengan pernyataan pertama setelah if, yaitu pada baris 10.
• Baris 11 : $count bernilai 4.
• Baris 12 : Kembali ke baris 5.
• Baris 5 : $awal bernilai salah karena  $awal=0 menjadi $awal = 1. Interpreter perl keluar dari proes looping dan melewati proses looping menunju ke baris awal setelah pernyataan while yaitu baris 12.
• Baris 12 digunakan untuk menampilkan karakter "Akhir proses looping".  Setelah menampilkan karakter ke layar eksekusi program dihentikan karena tidak ada lagi pernyataan yang akan dieksekusi.

Sintaks umum dari pernyataan while adalah seperti berikut.

while (ekspresi) {

blok_pernyataan

}

Sintaks ini memiliki kemiripan dengan pernyataan if. Kesamaan tersebut memiliki ciri ekspresi kondisi yang berada pada (ekspresi) harus dilakukan pengujian, dan blok_pernyataan akan diekekusi jika kondisi bernilai benar.