Web Hosting by Netfirms | Free Domain Names by Netfirms

Looping Menggunakan until

Pernyataan until juga digunakan untuk melakukan proses looping pada perl. Pernyataan ini memiliki kemiripan dengan pernyataan yang digunakan pada pernyataan while. Perbedaan terletak pada pernyataan while melakukan proses looping jika ekspresi kondisi bernilai benar, sedangkan pada pernyataan until looping dilakukan sampai pernyataan menjadi benar. Hal ini berarti bahwa proses looping dilakukan selama kondisi masih bernilai salah. Berikut adalah contoh program yang melakukan proses looping menggunakan until.

#!/usr/bin/perl

print ("Berapakah 17 ditambah 40\n");

$jawaban_benar = 57;

$jawaban = <STDIN>;

chop ($jawaban);

until ($jawaban == $jawaban_benar) {

print ("Salah!, Ulangi lagi\n");

$jawaban = <STDIN>;

chop ($jawaban);

}

print ("Anda benar! Selamat....\n");

Berikut adalah keluaran dari program di atas.

Berapakah 17 ditambah 40

56

Salah!, Ulangi lagi

55

Salah!, Ulangi lagi

57Anda benar! Selamat ....

Baris 2 dan 4 digunakan untuk mengatur proses looping. Baris 2 menampilkan pertanyaan di layar monitor yang diikuti dengan baris 3 yang mengatur jawaban yang benar dengan menggunakan variabel $jawaban_benar. Baris 4 dan 5 digunakan untuk memasukkan jawaban dari pertanyaan sebelumnya. Baris 4 membaca jawaban yang berasal dari standar input dan meletakkan jawabannya pada variabel $jawaban. Perintah chop dilakukan pada baris 5 untuk mengambil karakter terakhir dari input yang diberikan. Baris 6 digunakan untuk pengujian jawaban yang dimasukkan. Pengujian menggunakan operator == yang membandingkan antara $jawaban dengan $jawaban_benar. Jika kedua variabel tersebut bernilai tidak sama, interpreter perl menuju ke baris 7-9, jika nilai kedua variabel tadi sama, interpreter langsung menuju ke baris 11. Baris 7 digunakan untuk menampilkan karakter berikut dilayar.

Salah!, Ulangi lagi

Baris 8 digunakan untuk membaca jawaban berikut yang berasal dari standar input dan meletakkan jawaban tersebut ke dalam variabel $jawaban. Dan seperti biasa, baris perintah ini diikuti dengan perintah chop pada baris 9, dan interpreter akan kembali ke baris 6 untuk melakukan pengujian. Interpreter perl langsung membaca baris 11 jika jawaban yang diberikan benar. Sampai pada bagian ini, pada layar monitor ditampilkan pesan bahwa jawaban yang dimasukkan benar. Pernyataan until memiliki sintaks seperti berikut.

Until (ekspresi) {

blok_pernyataan

}