view release on metacpan or  search on metacpan

examples/initramfs-man/bin/clean-utf8-man.pl  view on Meta::CPAN

#!/usr/bin/perl
#
# This cleans up man pages for use with rman.
# This means converting from utf8 to latin1 too.
#
use 5.010;
use strict;
use warnings;

binmode(STDIN,':utf8');
binmode(STDOUT,':raw');

my $concat = '';

while (<>) {
    if ($concat) {
	s/^\s*//;
	$_ = $concat . $_;
	$concat = '';
    }
    if (/\x{2010}\s*$/) {   # hyphen at end of line

examples/initramfs-man/bin/mangle-rman-html.pl  view on Meta::CPAN

# mangle-rman-html
#
use 5.010;
use strict;
use warnings;

use Getopt::Long;
use HTML::TreeBuilder;
use Pod::Usage;

binmode(STDIN,':utf8');

my $doctype = 'DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"'
            . ' "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"';
my $xmlns = "http://www.w3.org/1999/xhtml";

my %opt;

GetOptions( \%opt,
    'title=s',
    'help|?', 'manual')