Help for this page

Select Code to Download


  1. or download this
     while (<CONFIG>) {
    if (/^\s*#/) {  # ignore comment line
...
       warn "Ptooey:  Could not parse config line: $_\n";
    }
 }
  2. or download this
        } elsif (/(\w+)\s*=\s*[<]{2}(\w+)/) { # heredoc
      (my $name, local $/) = ($1, $2);
      $config{$name} = <CONFIG>;
  3. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/