Xpoint
   [напомнить пароль]

PerlDoc

Perldoc.cgi

Этот небольшой cgi скрипт позволяет просматривать Perl-документацию через браузер на своем web-хостинге или локальном http-сервере

Способы использования очень схож с использованием обычного perldoc.
Параметры пишутся в query string как обычные парамтры к perldoc

Например:

  • perldoc.cgi?CGI::Carp
  • perldoc.cgi?-f split
  • perldoc.cgi?-q perl

#!/usr/bin/perl -w
# perldoc.cgi

use strict;
use URI::Escape;

chdir '/tmp'; # if possible

my $name = (split '/', $ENV{SCRIPT_NAME} || $0)[-1];

print "Content-type: text/html\n\n";

uri_unescape($ENV{QUERY_STRING} || 'perldoc') =~ /^([\w\s:-]*)$/
  or do {
      print "bad query string: $ENV{QUERY_STRING}";
      exit;
  };

open DOC, "perldoc -u $1|pod2html --header --title='$1'|"
  or do {
      print "can't run perldoc: $!";
      exit;
  };

while (<DOC>) {
    s{ href="/([^."]+)\.html }
     { local $_ = $1;
        s|/|::|g;
        qq(href="$name?$_)
    }gexi;
    print;
}
Powered by POEM™ Engine Copyright © 2002-2005