28 December 2005
This post may be outdated due to it was written on 2005. The links may be broken. The code may be not working anymore. Leave comments if needed.
perldoc 黑忽忽的界面浏览起来不是很方便。我一向习惯用浏览器来浏览 perldoc, 但当我安装了很多模块的时候,perldoc 的 TOC/Table Of Content 将变得很长,找一个想要的模块将要拉很长的浏览器,比较不方便。
于是写了一个简单的文件用 IE 浏览器打开模块 html 文件。
#!/usr/bin/perl
use strict;
use Config;
use File::Spec;

my ($module) = @ARGV;

die 'not a module' unless ($module =~ /^[\w\:]+$/);

# determine it weather it is in /lib or /site/lib
my $file = File::Spec->catfile($Config{installhtmldir}, 'lib', split(/\:+/, $module)) . '.html';
$file = File::Spec->catfile($Config{installhtmldir}, 'site', 'lib', split(/\:+/, $module)) . '.html' unless (-e $file);
# if not in /lib and site/lib, check the lib/Pod, for such as perlfunc
$file = File::Spec->catfile($Config{installhtmldir}, 'lib', 'Pod', split(/\:+/, $module)) . '.html' unless (-e $file);
# and /bin
$file = File::Spec->catfile($Config{installhtmldir}, 'bin', split(/\:+/, $module)) . '.html' unless (-e $file);
die 'no such html' unless (-e $file);

`"C:/Program Files/Internet Explorer/IEXPLORE.EXE" $file`;

再用 pl2bat 将其转化为 bat 文件
pl2bat pd.pl
最后将这个 bat 文件拖进某 PATH 目录下就可以了。
这下我们可以用
pd Module::Build
来打开 Module::Build 的 html 文件。


blog comments powered by Disqus