LinuxºÍPerl¶¼ÊôÓÚ×ÔÓÉÈí¼þ£¬½«¶þÕß½áºÏÕæÊÇÃî²»¿ÉÑÔ¡£×ñÑÒÔϲ½ÖèÒ»°ã¾Í¿É°²×°ºÃ perl £¬perl ¾ÍÄÜÔÚ linux Ï»¶³ª¡£
1¡¢È¡µÃ×îа汾µÄ perl£¬µ±Ç°°æ±¾Îª 5.6.0£¬¼´ stable.tar.gz.
2¡¢½âÎļþ°ü£º
gunzip stable.tar.gz
tar xvf stable.tar
µÃµ½Ä¿Â¼ perl-5.6.0
3¡¢ÔÚĿ¼ perl-5.6.0 ϰ²×° perl£º
rm -f config.sh Policy.sh
sh Configure -de
make
make test
make install
config.sh Policy.sh ΪÒÔǰ°²×°Ê±µÄÅäÖÃÎļþ£¬Ð°²×°»òÉý¼¶°²×°Ê±
ÐèÒª½«Æäɾ³ý¡£
sh Configure -de °²×°Ê¹ÓÃĬÈÏÅäÖã¬Ò»°ã¶øÑÔ½«»á ok .
°²×°Íê³Éºó perl ËùÔÚĿ¼Ϊ /usr/local/lib/perl5£¬ perl Ö´ÐÐÎļþ
ÔÚ /usr/local/bin ÖС£
4¡¢¹ØÓÚ .html Îļþ
°²×° perl ʱ²»ÄÜ×Ô¶¯°²×° .html Îļþ£¬ ÔÚ perl-5.6.0 Ŀ¼ÖÐÓÐÒ»
¸öinstallhtml Îļþ£¬ Ö´ÐÐ perl installhtml ¡ª¡ªhelp ¿ÉµÃµ½Ê¹ÓðïÖú£¬Ê¹ÓÃ
installhtml¿É½« .pod ¼° .pm Îļþ±àÒëµÃµ½ÏàÓ¦µÄ .html ÎļþÎļþ£¬ ËüµÄ¾ß
ÌåʹÓÃÇë×Ô¼º¿´¡£
ÏÂÃæÊÇÎÒËùдµÄÒ»¸ö¾ßÓÐÀàËÆ¹¦ÄܵijÌÐò¡£
| 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
Îļþ²»ÄÜ×Ô¶¯°²×°£¬ÐèʹÓÃÇ°Ãæ½éÉÜ·½·¨½øÐа²×°¡£
| ×ÔÓÉ¹ã¸æÇø |
| ¡¡ |