下面是我所寫的一個具有類似功能的程序。
simple_find("5.6.0");# 含 .pm 文件的源目錄
use Pod::Html;
sub simple_find{
$sourth="/usr/local/lib/perl5/5.6.0html/"; #含 .html的目標目錄
my ($input)=@_;
my $file;
$ddir=$sourth.$input;
$cont=`file $ddir`;
if ($cont !~/$ddir\:\sdirectory/){
`mkdir $ddir`;
}
opendir(md,$input);
my @file=readdir(md);
closedir(md);
@pfile= grep(m/\.pm/,@file);
my @dfile= grep(!m/\.pm/,@file);
@dfile=grep(!m/^\./,@dfile);
foreach $pfile(@pfile){
$pfile=~/\.pm/;
$dfile=$`;
$sfile=$input."/".$pfile;
$dfile=$sourth.$input."/".$dfile."\.html";
pod2html(
"--infile=$sfile",
"--outfile=$dfile");
}
foreach $file(@dfile){
$vale=$input."/".$file;
$cont=`file $vale`;
if ($cont=~/$vale\:\sdirectory/){
simple_find($vale);
}
}
}
使用以上程序得到一個與源目錄結構一致的目標目錄,包含相應的. html文件。
注: 使用以上兩種方法都會產生不能轉化某行類錯誤,其實它無關大局,可以忽略。
5、模塊安裝
gunzip Module.tar.gz
tar xvf Moudle.tar
轉到相應目錄
perl Makefile.PL
make
make test
make install
安裝完成後模塊在 /usr/local/lib/perl5/site_perl 目錄中, . html文件不能自動安裝,需使用前面介紹方法進行安裝。