Skip to Main Content
Perl for Web Site Management
book

Perl for Web Site Management

by John Callender
October 2001
Beginner content levelBeginner
528 pages
15h 20m
English
O'Reilly Media, Inc.
Content preview from Perl for Web Site Management

Using a BEGIN Block

Does that mean we’re stuck with putting the %month_num assignment up at the top of the script, such that it will be visible everywhere, not just in the subroutine where it’s needed? No, we’re not stuck with that. We can use a special trick to make part of our script execute immediately after the compilation phase, before the normal runtime stuff happens. That trick is to put that part of our script inside a block labeled with the special word BEGIN (in all caps).

Let’s modify that anonymous block enclosing the &get_seconds subroutine to be a BEGIN block, and move the %month_num hash definition from the top of the script to the inside of that BEGIN block. The final version of the &get_seconds subroutine, including its enclosing BEGIN block, will then look like this:

            BEGIN {
    my %date_seconds;
    my %month_num = (
        Jan => 0,
        Feb => 1, 
        Mar => 2,
        Apr => 3,
        May => 4,
        Jun => 5,
        Jul => 6,
        Aug => 7,
        Sep => 8,
        Oct => 9,
        Nov => 10,
        Dec => 11,
    ); sub get_seconds { # this subroutine accepts a date string of the form # '06/Jul/1999' and a time string of the form '12:14:00' # and returns the number of seconds since the Unix # epoch, as determined by Time::Local's timelocal # function. the subroutine caches conversions of the # date part in %date_seconds in order to improve # performance. my ($date, $time) = @_; my $seconds; if ($date_seconds{$date}) { $seconds = $date_seconds{$date}; } else { my ($day, $mon, $yr) = split /\//, $date; $mon = $month_num{$mon}; $yr = $yr - 1900; ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Web Client Programming with Perl

Web Client Programming with Perl

Clinton Wong
Embedding Perl in HTML with Mason

Embedding Perl in HTML with Mason

Ken Williams, Dave Rolsky

Publisher Resources

ISBN: 1565926471Catalog PageErrata