Perl loop bersarang

Penulis：Eve Cole Waktu Pembaruan：2025-01-03 13:24:01

Bahasa Perl memungkinkan penggunaan loop dalam loop lain. Berikut adalah beberapa contoh untuk mengilustrasikan konsep ini.

tata bahasa

Sintaks untuk pernyataan loop for bersarang:

untuk ( init ; kondisi ; ) { untuk ( init ; kondisi ; ) { pernyataan ( ) ; pernyataan ( ) ;

Sintaks pernyataan while loop bersarang:

sementara ( kondisi ) { sementara ( kondisi ) { pernyataan ( ) ; pernyataan ( ) ;

Sintaks pernyataan perulangan do...sementara bersarang:

Mengerjakan { pernyataan ( s ) ; pernyataan ( s ) } sementara ( kondisi ) ; } ketika ( kondisi ) ;

Sintaks untuk pernyataan perulangan hingga bersarang:

sampai ( kondisi ) { sampai ( kondisi ) { pernyataan ( ) ; pernyataan ( ) ;

Sintaks pernyataan loop foreach bersarang:

depan $a ( @daftarA ) { depan $b ( @daftarB ) { pernyataan ( ) ; pernyataan ( ) ;

Contoh

#!/usr/bin/Perl $a = 0 ; $b = 0 ; # Lingkaran luar sementara ( $a < 3 ) { $b = 0 ; # putaran dalam ketika ( $b < 3 ) { mencetak " a = $a , b = $b n " ; $b = $b + 1 ; $a = $ a + 1 ; " a = $a n n " ;

Dengan mengeksekusi program di atas, hasil keluarannya adalah:

 a = 0, b = 0a = 0, b = 1a = 0, b = 2a = 1a = 1, b = 0a = 1, b = 1a = 1, b = 2a = 2a = 2, b = 0a = 2, b = 1a = 2, b = 2a = 3