Help for this page

Select Code to Download


  1. or download this
    my %handler = (
        HEADER => sub { ... },
        TITLE  => sub { ... },
    ...
        }
        $text .= " " . $curr_text;
    }
    
  2. or download this
    my %record;
    
    my %handler = (
    ...
        TITLE => sub { $record{TITLE} = $_[1] unless exists $record{TITLE}
    + },
        # ...
    );
    
  3. or download this
    my $curr_rec = 0;
    my @record;
    
    ...
        },
        # ...
    );