BEGIN and END Subroutines (Startup and Finish) : BEGIN END « Subroutine « Perl

1. Perl
2. Subroutine
3. BEGIN END

BEGIN and END Subroutines (Startup and Finish)

   

#A BEGIN subroutine is executed immediately, before the rest of the file is even parsed. 
#If you have multiple BEGINs, they will be executed in the order they were defined.
#The END subroutine is executed when all is done. 
#Multiple END blocks are executed in reverse order.
#The keyword sub is not necessary when using these special subroutines.

#!/bin/perl

chdir("/mydir") || die "Can't cd: $!\n";
BEGIN{ print "Welcome to my Program.\n"};
END{ print "Bailing out somewhere near line ",__ LINE__," So long.\n"};

   
    
    
  

Related examples in the same category