Antwoord

In Perl zijn er speciale blokken (BEGIN, CHECK, INIT, END) die de uitvoeringstijd van de code beheren:

• BEGIN { ... } — wordt onmiddellijk uitgevoerd bij de compilatie van het bestand (voor de hoofdcode en voor het laden van modules);
• CHECK { ... } — wordt uitgevoerd na de compilatie van alle bestanden, maar vóór hun uitvoering (niet in alle versies van Perl ondersteund);
• INIT { ... } — wordt uitgevoerd vóór de uitvoering van de hoofdcode ("runtime");
• END { ... } — wordt uitgevoerd na het beëindigen van het programma, bij het verlaten van het script.

Volgorde van uitvoering:

1. BEGIN
2. Compilatie van de code
3. CHECK
4. INIT
5. Hoofdcode
6. END

Voorbeeld:

BEGIN { print "BEGIN uitgevoerd
"; }
CHECK { print "CHECK uitgevoerd
"; }
INIT { print "INIT uitgevoerd
"; }
print "Hoofdcode uitgevoerd
";
END { print "END uitgevoerd
"; }

Misleidende vraag

Kan een BEGIN-blok binnen een module invloed hebben op de globale status van het programma, als deze module wordt geïmporteerd met require in plaats van use?

Antwoord en voorbeeld:

BEGIN-blokken worden bij de compilatie uitgevoerd, dus ze worden niet uitgevoerd als de module wordt geïmporteerd met require (während uitvoering, niet bij compilatie), en niet met use (wordt uitgevoerd tijdens de compilatie van het opneembare bestand). Dit kan leiden tot onverwacht gedrag als de initialisatie op BEGIN is gebaseerd.

Voorbeelden van echte fouten door onbekendheid met de nuance van het onderwerp

---

Verhaal 1: In een project werd BEGIN gebruikt voor het initialiseren van omgevingsvariabelen, en de module werd geïmporteerd via require — als resultaat waren de variabelen niet ingesteld, wat chaos veroorzaakte bij het laden van configuraties in productie.

---

Verhaal 2: Bij het gebruik van het END-blok voor het sluiten van een bestandsdescriptor werd geen rekening gehouden met impliciete processtops; soms werd het END-blok niet uitgevoerd door een onverwachte beëindiging van de Perl-interpreter, wat leidde tot verloren gegevens in de logs.

---

Verhaal 3: De CHECK-blokken waren de enige plaats waar tests op de geldigheid van de omgeving werden uitgevoerd. De gebruiker voerde het script uit in een oude versie van Perl, waar het CHECK-blok niet was, en er werden gewoonweg geen controles uitgevoerd — kritieke storingen manifesteerden zich alleen in productie.