|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/perl-5.8.8/pod/ |
Upload File : |
#!/usr/bin/perl
while (<>) {
if ($seqno = 1 .. /^\.TH/) {
unless ($seqno =~ /e/i) {
$header .= $_;
}
next;
}
if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
$desking = 0;
$desc = $1;
if (name($desc) ne $myname) {
$myname = name($desc);
print $myname, "\n";
open(MAN, "> $myname.3pl");
print MAN <<EOALL;
$header
.TH $myname 3PL "\\*(RP"
.SH NAME
$myname
.SH SYNOPSIS
.B $desc
EOALL
} else {
print MAN <<EOMORE;
.br
.ti +3n
or
.br
.B $desc
EOMORE
}
next;
}
unless ($desking) {
print MAN ".SH DESCRIPTION\n";
$desking = 1;
}
print MAN;
}
sub name {
($_[0] =~ /(\w+)/)[0];
}