Pernyataan redo perl

siklus perl

Perl mengulang pernyataan langsung ke baris pertama dari badan loop mulai mengulangi siklus ini, laporan tidak dieksekusi pernyataan redo, terus blok pernyataan tidak lagi dijalankan.

terus laporan dapat digunakan sementara dan loop foreach.

tatabahasa

Sintaksnya adalah sebagai berikut:

redo [LABEL]

Di mana LABEL adalah opsional.

mengulang pernyataan LABEL dengan mengacu pengubah mengindikasikan aliran kontrol siklus langsung ke baris pertama dari blok pernyataan terkait dengan kualifikasi label LABEL mulai, dan pernyataan dan terus pernyataan blok tidak dieksekusi setelah pernyataan redo;

mengulang pernyataan LABEL tanpa label pengubah mewakili aliran sirkuler control untuk langsung ke baris pertama dari blok saat laporan dimulai, dan terus menjalankan pernyataan bukan pernyataan setelah blok pernyataan redo;

Jika Anda berada dalam untuk loop atau melanjutkan dengan blok pernyataan, untuk daftar penambahan lingkaran dan terus blok pernyataan tidak akan lagi dijalankan;

diagram alir

contoh

#/usr/bin/perl
   
$a = 0;
while($a < 10){
   if( $a == 5 ){
      $a = $a + 1;
      redo;
   }
   print "a = $a\n";
}continue{
   $a = $a + 1;
}

Program di atas, output adalah:

a = 0
a = 1
a = 2
a = 3
a = 4
a = 6
a = 7
a = 8
a = 9

siklus perl