12 lines
310 B
Perl
12 lines
310 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
# $FreeBSD$
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
next unless (m,^(.*/)([\w\._-]+)\.(\d\w*)(\.gz)?$,);
|
||
|
|
my ($entity, $page, $volume) = ($2, $2, $3);
|
||
|
|
$entity =~ y/_/./;
|
||
|
|
print "<!ENTITY man.$entity.$volume \"<citerefentry/<refentrytitle/$page/<manvolnum/$volume//\">\n";
|
||
|
|
}
|