BEGIN and END Blocks in Perl

You may define any number of code blocks named BEGIN and END in Perl programs, which act as constructors and destructors respectively.

BEGIN { ... }
END { ... }
BEGIN { ... }
END { ... }

• Every BEGIN block is executed after the perl script is loaded and compiled but before any other statement is executed.
• Every END block is executed just before the perl interpreter exits.
• The BEGIN and END blocks are particularly useful when creating Perl modules.

Following example shows its usage −

Example

 Live Demo

#!/usr/bin/perl
package Foo;
print "Begin and Block Demo\n";
BEGIN {
   print "This is BEGIN Block\n"
}
END {
   print "This is END Block\n"
}
1;

Output

When above code is executed, it produces the following result −

This is BEGIN Block
Begin and Block Demo
This is END Block

Mohd Mohtashim

Published on 02-Dec-2019 10:30:49

• Related Questions & Answers
• map::begin() and end() in C++ STL
• set::begin() and set::end() in C++ STL
• vector::begin() and vector::end() in C++ STL
• list begin( ) and list end( ) in C++ STL
• forward_list::begin() and forward_list::end() in C++ STL
• deque::begin() and deque::end in C++ STL
• match_results begin() and end() function in C++ STL
• multiset begin() and end() function in C++ STL
• multimap::begin() and multimap::end() in C++ STL
• How can we create MySQL stored procedures without ‘BEGIN’ and ‘END’?
• Use delimiter correctly in a MySQL stored procedure to avoid BEGIN/END statements errors
• Perl and the Web
• Demonstrate static variables, methods and blocks in Java
• Single and Double Quotes in Perl
• Destructors and Garbage Collection in Perl