Help for this page

Select Code to Download


  1. or download this
    use strict;
    use Config;
    use vars qw(%Config);
    print "My default pager is $Config{pager}\n";
    
  2. or download this
    sub colorize {
      # Autoload here
    ...
        return $escape_code;
      }
    }
    
  3. or download this
      my ($case, $data) =(split /\s/, $input, 2;
      $case = lc($case);
    ...
      else {
        do_default($input);
      }
    
  4. or download this
    @cases = [
      # etc
    ...
      },
      # etc
    };