[kansaipm] Re: perldoc のこと

[PIA at ACR Linx]

初めまして(^^
PIA @ ACR Linx です。

私の場合もっと軟弱かも知れませんが…ｗ
面倒なので perldoc2html ってスクリプト組んでます。

短いので載せます(笑)

で、コイツを設置したサーバに TTSSH でログインしてコマンド叩いて、
HTML生成用ディレクトリは samba で共有して、Win の IE で見てます。(笑)

# モジュール名ミスると、空のHTMLファイルが出来るのが難点…
# 自分用なので良いんですけど(^^;

----------------------------------------

#!/usr/bin/perl

use strict;

unless ($ARGV[0]) {
        print <<EOD;
Usage : perldoc2html PageName|ModuleName|ProgramName
EOD
exit;
}

mkdir "$ENV{HOME}/perldoc" unless -e "$ENV{HOME}/perldoc";

open(PERLDOC,"perldoc -u $ARGV[0] | pod2html |") or die;

my $name = $ARGV[0];
$name =~ s/\:{2}/\-/g;
$name .= '.html';

open(OUTPUT,">$ENV{HOME}/perldoc/$name") or die;
while(<PERLDOC>) {
        print OUTPUT;
}

`rm -f ./pod2htm?.x~~`;

1;

----------------------------------------

# 2周年記念イベント参加したかったです…
# 仕事のばかやろ〜

          __________________________________________________

           PIA @ ACR Linx Inc.
                                          pia at acrlinx.ne.jp
                   http://www.acrlinx.ne.jp/~pia/index.html
          __________________________________________________