Help for this page

Select Code to Download


  1. or download this
    $_ = <INFO> until !defined($_) || /^(\* Menu:|\037)/;
return %header unless /Menu/;
  2. or download this
    $_ = <INFO> until !defined($_) || /^(\* Menu:|\037)/;
return %header unless defined and /Menu/;
  3. or download this
    $_ = <INFO> until !defined($_) || /^(\* Menu:|\037)/;
return %header unless defined and index($_, 'Menu') >= 0;
  4. or download this
    my $menu;
$_ = <INFO> until !defined($_) || ($menu = /^\* Menu:/) || /^\037/;
return %header unless $menu;