perl ¿¹Á¦ : man2html
ÃÑ ÆäÀÌÁö ¼ö : 3224

Àüü ÇÔ¼ö/¿ë¾î»çÀü
Facebook Joinc ±×·ì   Joinc QA »çÀÌÆ®
ÇöÀçÀ§Ä¡ : Code>JPerl>man2html



joinc´Â Firefox¿Í chrome¿¡¼­ Å×½ºÆ® Çß½À´Ï´Ù. IE¿¡¼­´Â Å×À̺íÀÌ ±úÁö°Å³ª À̹ÌÁö°¡ º¸ÀÌÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù. ƯÈ÷ ±¸±Û DocsÀ̹ÌÁöÀÇ °æ¿ì ¿¢¹Úó¸®µÉ ¼ö ÀÖ½À´Ï´Ù.

¼Ò°³

¿µ¹® man »çÀÌÆ®¸¦ ¸¸µé±â·Î Çß´Ù. man2htmlÀ̶õ ÇÁ·Î±×·¥À» ÀÌ¿ëÇϸé manÆäÀÌÁö¸¦ html¹®¼­·Î ¹Ù²Ü ¼ö ÀÖ´Ù. perlÀ» ÀÌ¿ëÇØ¼­ °£´ÜÇÏ°Ô ÇØ´ç ¼½¼ÇÀÇ ¸ðµç manÆäÀÌÁö¸¦ html ¹®¼­·Î º¯È¯ÇÏ´Â ½ºÅ©¸³Æ®¸¦ ¸¸µé¾ú´Ù.

#!/usr/bin/perl 
 
# command line argument ó¸® 
use Getopt::Std; 
%options=(); 
getopts("s:", \%options); 
 
if(!defined($options{s})) 
{ 
        print "Usage $0 -s [section number]\n"; 
        exit(1); 
} 
$section = $options{s}; 
 
$dirname = "/usr/share/man/man$section"; 
 
opendir(DIR, $dirname) || die "Error in $dirname"; 
while($filename = readdir(DIR)) 
{ 
        if(!($filename =~ /^\./) && ($filename =~ /^[a-z]/)) 
        { 
                my($funcname,$snum,$ext) = split "\\.",$filename; 
                print $funcname,"\n"; 
                system("man2html $dirname/$filename > $funcname") 
        } 
} 
 

»ç¿ë¹ý

# ./man2html.pl -s 1 
 
EmailÀ» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù.