Mulai {…}; Di Perl?

Tutup. Pertanyaan ini di luar topik. Saat ini tidak menerima jawaban.

Ingin memperbaiki pertanyaan ini? Perbarui pertanyaan agar sesuai dengan topik untuk Unix &Linux Stack Exchange.

Ditutup 2 tahun yang lalu.

Perbaiki pertanyaan ini

Saya memiliki skrip perl:

#!/usr/bin/perl 

BEGIN {
        print "That's BEGIN message\n";
BEGIN { print "That's BEGIN-2 message\n"; };
END { print "That's END message\n"; };
BEGIN { print "That's BEGIN-3 message\n"; };
};

Ini bekerja begitu:

That's BEGIN-2 message
That's BEGIN-3 message
That's BEGIN message
That's END message

Tapi kenapa? Itu harus dicetak pada baris 1 That's BEGIN message atau tidak?

Jawaban yang Diterima:

BEGIN first yang pertama tidak dijalankan sampai sepenuhnya didefinisikan (lihat dokumentasi). Itu tidak terjadi sampai akhir } . terakhir .

Yang lain dijalankan seperti yang ditentukan sepenuhnya — sebelumnya.