Perlni boshqarish tuzilmalari - Perl control structures

Bu maqola emas keltirish har qanday manbalar. Iltimos yordam bering ushbu maqolani yaxshilang tomonidan ishonchli manbalarga iqtiboslarni qo'shish. Manbaga ega bo'lmagan materialga qarshi chiqish mumkin va olib tashlandi. Manbalarni toping: "Perl boshqaruv tuzilmalari"  – Yangiliklar  · gazetalar  · kitoblar  · olim  · JSTOR (2009 yil dekabr) (Ushbu shablon xabarini qanday va qachon olib tashlashni bilib oling)

Ning asosiy boshqaruv tuzilmalari Perl ishlatilganlarga o'xshash C va Java, lekin ular bir necha usul bilan uzaytirildi.

Ko'chadan

Quyida, yorliq nuqta bilan tugatilgan ixtiyoriy identifikator va blokirovka qilish qavslar bilan o'ralgan yana bir Perl bayonotlaridan birining ketma-ketligi. C uslubidan tashqari barcha tsiklli konstruktsiyalar uchunilmoq a bo'lishi mumkin davom eting tsikl tanasining har bir takrorlanishidan so'ng, tsikl holati qayta baholanmasdan oldin bajariladigan blok.

yorliq uchun ( expr1 ; expr2 ; expr3 ) blokirovka qilish

Bu shunday deb nomlangan C - uslub uchun pastadir Birinchi ifoda birinchi tsikl takrorlanishidan oldin baholanadi. Ikkinchi ifoda har bir takrorlanishdan oldin baholanadi va agar u noto'g'ri bo'lsa, tsikl tugaydi. Uchinchi ibora har bir iteratsiyadan so'ng, keyingisini bajarish to'g'risida qaror qabul qilishdan oldin baholanadi. Bu uchun loop - bu bitta bo'lishi mumkin bo'lmagan loop konstruktsiyasi davom eting blokirovka qilish, ammo expr3 funktsional jihatdan tengdir.

yorliq uchun var ( ro'yxat ) blokirovka qilishyorliq uchun var ( ro'yxat ) blokirovka qilish davom eting blokirovka qilishyorliq har biriga var ( ro'yxat ) blokirovka qilishyorliq har biriga var ( ro'yxat ) blokirovka qilish davom eting blokirovka qilish

Yilda har biriga, var sukut o'zgaruvchisidir, bu sukut bo'yicha $_ agar qoldirilgan bo'lsa. Ning har bir elementi uchun ro'yxat, var elementga taxallus qilingan va tsikl tanasi bir marta bajariladi. Kalit so'zlar uchun va har biriga sinonimlar va har doim bir-birini almashtirib turadi.

yorliq esa ( expr ) blokirovka qilishyorliq esa ( expr ) blokirovka qilish davom eting blokirovka qilishyorliq qadar ( expr ) blokirovka qilishyorliq qadar ( expr ) blokirovka qilish davom eting blokirovka qilish

The esa Loop boshqaruvchi ifoda to'g'ri bo'lsa, loop tanasini bir necha bor bajaradi. Vaziyat pastadir tanasi oldida baholanadi. qadar o'xshash, lekin shart yolg'on ekan, loop tanasini bajaradi.

yorliq blokirovka qilishyorliq blokirovka qilish davom eting blokirovka qilish

The yorliq blokirovka qilish construct biroz g'alati: Perl yalang'och blokni yorliqli yoki yorliqsiz bir marta bajariladigan tsikl sifatida ko'rib chiqadi. Bu shuni anglatadiki, loopni boshqarish kalit so'zlari blokni qayta boshlash yoki undan muddatidan oldin chiqish uchun ishlatilishi mumkin; yalang'och blokda ham bo'lishi mumkin davom eting blokirovka qilish.

Loop control kalit so'zlari

Perl uchta ko'chadan boshqariladigan kalit so'zlarni taqdim etadi, ularning barchasi ixtiyoriy tsikl yorlig'ini argument sifatida qabul qiladi. Agar yorliq ko'rsatilmagan bo'lsa, kalit so'zlar ichki tsiklda ishlaydi. Ichki halqalarda yorliqlardan foydalanish ichki tsikldan tashqi yoki umuman tashqi tsikldan tashqariga o'tishni ta'minlaydi. Loop control kalit so'zlari C yoki Java kabi so'zlar kabi emas, balki Perl-dagi iboralar sifatida ko'rib chiqiladi.

• The Keyingisi kalit so'z to'g'ridan-to'g'ri tsiklning joriy takrorlanishi oxiriga sakraydi. Bu odatda tsiklning navbatdagi iteratsiyasini boshlashga olib keladi, ammo davom eting birinchi navbatda blok va pastadir holati baholanadi.
• The oxirgi kalit so'z yorliq bilan aniqlangan tsiklning bajarilishini darhol to'xtatadi. The davom eting blok bajarilmadi.
• The takrorlash kalit so'z yorliq bilan belgilangan tsiklning joriy takrorlanishini qayta boshlaydi. Ham davom eting blok yoki pastadir holati baholanmaydi.

Shartli gaplar

agar ( expr ) blokirovka qilishagar ( expr ) blokirovka qilish boshqa blokirovka qilishagar ( expr ) blokirovka qilish elsif ( expr  ) blokirovka qilish ... boshqa blokirovka qilishagar bo'lmasa ( expr ) blokirovka qilishagar bo'lmasa ( expr ) blokirovka qilish boshqa blokirovka qilishagar bo'lmasa ( expr ) blokirovka qilish elsif ( expr  ) blokirovka qilish ... boshqa blokirovka qilish

qayerda blokirovka qilish qavslar bilan o'ralgan yana bir Perl bayonotlaridan birining ketma-ketligi.

Nazorat qiluvchi iboralar a da baholanadi mantiqiy kontekst: Raqamli 0, "" va "0" qatorlari va aniqlanmagan qiymat undef yolg'on, boshqa barcha qiymatlar to'g'ri. Bu "0,0", "00", "qatorlari-0 ", va" 0 but true "barchasi to'g'ri, garchi ularning qiymati raqamli kontekstda 0 ga aylantirilsa ham, bunday qiymatlar ba'zan muvaffaqiyatli operatsiya 0 ga qaytishi kerak bo'lganda ishlatiladi.

Skalyar kontekstdagi bo'sh massivni baholash undef, bu noto'g'ri. Shuning uchun quyidagi misol "a bo'sh" ni bosib chiqaradi:

mening @a=(); '' 'agar' '' bo'lmasa (@a) { '' 'bosib chiqarish' '' "a bo'sh" }

Bayonni o'zgartiruvchilar

Perl shuningdek, blok o'rniga oddiy gapda (uning yon ta'siri uchun baholangan ifoda) ishlaydigan tsikl va shartli tuzilmalarning variantlarini beradi:

bayonot agar expr;bayonot agar bo'lmasa expr;bayonot esa expr;bayonot qadar expr;bayonot uchun ro'yxat;bayonot har biriga ro'yxat;

The esa va qadar modifikatorlar, xuddi ko'chadan o'xshashlari singari, bayonotni bajarishdan oldin boshqaruvchi ifodani sinab ko'rishadi. Biroq, ular haqiqiy ko'chadan deb hisoblanmaydi, shuning uchun loopni boshqarish kalit so'zlari Keyingisi, oxirgi va takrorlash ular bilan foydalanish mumkin emas. Bilan birikganda ular maxsus semantikaga ega qil kalit so'z:

qil blokirovka qilish esa expr;qil blokirovka qilish qadar expr;

Ushbu konstruktsiyalarda shart blok bajarilgandan so'ng tekshiriladi, shuning uchun blok har doim kamida bir marta bajariladi.

Ushbu modifikatorlar joylashtirilishi mumkin emas, shuning uchun quyidagilar noqonuniy hisoblanadi

bayonot agar ifoda uchun ro'yxat; #REROR

va ulardan biri sifatida yozilishi kerak:

( ifoda ) va ( bayonot ) uchun ro'yxat;uchun ( ro'yxat ) { bayonot agar ifoda }qil { bayonot agar ifoda } har biriga ro'yxat;

bordi

Ning ikki shakli mavjud bordi Perlda:

goto yorlig'i

va

goto & subroutine

Birinchi shakl odatda eskirgan va faqat kamdan-kam hollarda qo'llaniladi. Masalan, xato holatini saqlab qolishga urinayotganda $?, ba'zi modullarda goto quyidagi kabi ishlatiladi:

ochiq(A, "<", $ filea) yoki bordi muvaffaqiyatsiz;ochiq(B ,">", $ fileb) yoki bordi muvaffaqiyatsiz;chop etish B <A> yoki bordi muvaffaqiyatsiz;yaqin A yoki bordi muvaffaqiyatsiz;yaqin B yoki bordi muvaffaqiyatsiz;qaytish 1;muvaffaqiyatsiz: $ sababi = "Nusxada: $?"; qaytish 0;

Ikkinchi shakl a deb nomlanadi quyruq chaqiruvi va Perl-ning standart stek boshqaruvi maqbul bo'lmagan ishlashi mumkin bo'lgan ba'zi turdagi konstruktsiyalarning ish faoliyatini yaxshilash uchun ishlatiladi. Masalan:

sub faktorial {    mening $ n = siljish;    mening jami $ = siljish(@_) || 1;    agar ($ n > 1) {        @_ = ($ n-1,jami $*$ n);        bordi &faktorial;    } boshqa {        qaytish jami $;    }}

Ushbu shakl, shuningdek, minimal qo'shimcha xarajatlar bilan subroutines uchun taxalluslarni yaratish uchun ishlatiladi. Bu bir xil dasturni takrorlashda tez-tez uchraydigan "Xotiradan tashqaridagi" xatolarni (yoki umuman, yuqori xotira hajmini) kamaytirishga yordam beradi.

Tashqi havolalar

Perl dasturlash / oqimni boshqarish Vikikitoblarda