(common.inc.plp)><: my $textinc = 'sample.txt'; Html({ title => "unicode sampler", version => '2.1', stylesheet => [qw'light dark mono red'], data => [$textinc], image => 'sample.png', }); open my $source, '<', $textinc or Abort("Could not open text at $textinc", 501, $!); local $/ = "\n\n"; my $top = readline $source; my ($title, $hr, $intro) = split /\n(\pP)\1+\n/, $top, 2; say "
HTML display of plain text intended for monospaced (terminal) output. Compare an expected rendering of the overview.
. say ''; print $intro; while (my $p = readline $source) { EscapeHTML($p); $p =~ s{ \A ((\pL+) \N*:) \n }{\n";$1
}x; if ($2 eq 'Unicode') { # table without proper direction control $p =~ s/^(?= )/\x{202d}/gm; # ltr override every line } $p =~ s{(?<=^ )([\p{Latin} ]+:)}{$1}gm; print $p; } say "