view release on metacpan or  search on metacpan

lib/Aion/Format/Html.pm  view on Meta::CPAN

package Aion::Format::Html;

use common::sense;

use Exporter qw/import/;
our @EXPORT = our @EXPORT_OK = grep {
	*{$Aion::Format::Html::{$_}}{CODE} && !/^(_|(NaN|import)\z)/n
} keys %Aion::Format::Html::;

# Экранирует символы html
my %HTML_SIM = (qw/< &lt; > &gt; & &amp; \' &apos; " &quot;/, "\n" => '<br>', "\t" => '&emsp;');
sub to_html (;$) {
	my ($s) = @_? @_: $_;
	$s =~ s/[<>&\'\"]/$HTML_SIM{$&}/ge;
	$s
}

our %ENTITIES = (
#
# Управляющие символы C0 и основная латиница
# U+0000—U+007F
# Данный диапазон Юникода полностью соответствует стандарту ASCII за исключением соглашения о наложении литер через возврат на шаг.[3]
# Символ	Назначение	Мнемоника	HTML	Код
#
# U+0000—U+001F — управляющие символы C0
# табуляция — HT (ANSI), ГТ (ГОСТ)	&Tab;	5.0	U+0009 &#9;
Tab => 9,
# перевод строки — LF (ANSI), ПС (ГОСТ)	&NewLine;	5.0	U+000A &#10;
NewLine => 10,
#
# U+0032—U+007E — основная латиница
#
# пробел			U+0020 &#32;
# !	восклицательный знак	&excl;	5.0	U+0021 &#33;
excl => 33,
# "	двойная кавычка[4]	&QUOT;	5.0	U+0022 &#34; &quot;	2.0
quot => 34,
QUOT => 34,
# #	знак номера («решётка» или «диез»)	&num;	5.0	U+0023 &#35;
num => 35,
# $	знак доллара	&dollar;	5.0	U+0024 &#36;
dollar => 36,
# %	знак процента	&percnt;	5.0	U+0025 &#37;
percnt => 37,
# &	амперсанд	&AMP;	5.0	U+0026 &#38;  &amp;	1.0/2.0
amp => 38,
AMP => 38,
# '	одинарная кавычка (занимающий позицию апостроф)[5]	&apos;	5.0	U+0027 &#39;
apos => 39,
# (	левая круглая скобка	&lpar;	5.0	U+0028 &#40;
lpar => 40,
# )	правая круглая скобка	&rpar;	5.0	U+0029 &#41;
rpar => 41,
# *	звёздочка (может быть как высоко, так и среднерасположенной)[6][7]	&ast;	5.0	U+002A &#42; &midast;
ast => 42,
midast => 42,
# +	знак плюс	&plus;	5.0	U+002B &#43;
plus => 43,
# ,	запятая[8]	&comma;	5.0	U+002C &#44;
comma => 44,
# -	чёрточка-минус (не рекомендован к использованию)[9][10]			U+002D &#45;
# .	точка[11]	&period;	5.0	U+002E &#46;
period => 46,
# /	косая черта (солидус)[12][13]	&sol;	5.0	U+002F &#47;
sol => 47,
#
#
# U+0030—U+0039 — цифры 0—9[14]
#
# :	двоеточие	&colon;	5.0	U+003A &#58;
colon => 58,
# ;	точка с запятой	&semi;	5.0	U+003B &#59;
semi => 59,
# <	знак меньше	&LT;	5.0	U+003C &#60; &lt;	1.0/2.0
LT => 60,
lt => 60,
# =	знак равенства	&equals;	5.0	U+003D &#61;
equals => 61,
# >	знак больше	&GT;	5.0	U+003E &#62; &gt;	1.0/2.0
GT => 62,
gt => 62,
# ?	знак вопроса	&quest;	5.0	U+003F &#63;
quest => 63,
# @	коммерческий «эт»	&commat;	5.0	U+0040 &#64;
commat => 64,
#
#
# U+0041—U+005A — заглавные латинские буквы A—Z[15]
#
# [	левая квадратная скобка	&lsqb;	5.0	U+005B &#91; &lbrack;
lbrack => 91,
lsqb => 91,
# \	обратная косая черта[16]	&bsol;	5.0	U+005C &#92;
bsol => 92,
# ]	правая квадратная скобка	&rsqb;	5.0	U+005D &#93; &rbrack;
rsqb => 93,
rbrack => 93,
# ^	карет — (может быть как высоко, так и среднерасположенным)[17][18]	&Hat;	5.0	U+005E &#94;
Hat => 94,
# _	занимающее позицию подчёркивание (должно стыковаться по горизонтали)[19]	&lowbar;	5.0	U+005F &#95; &UnderBar;
lowbar => 95,

lib/Aion/Format/Html.pm  view on Meta::CPAN

aogon => 261,
# Ć	латинская заглавная «C» с акутом	Ć	5.0	U+0106 Ć
Cacute => 262,
# ć	латинская строчная «c» с акутом	ć	5.0	U+0107 ć
cacute => 263,
# Ĉ	латинская заглавная «C» с циркумфлексом	Ĉ	5.0	U+0108 Ĉ
Ccirc => 264,
# ĉ	латинская строчная «c» с циркумфлексом	ĉ	5.0	U+0109 ĉ
ccirc => 265,
# ÄŠ	латинская заглавная «C» с точкой сверху	Ċ	5.0	U+010A Ċ
Cdot => 266,
# Ä‹	латинская строчная «c» с точкой сверху	ċ	5.0	U+010B ċ
cdot => 267,
# ÄŒ	латинская заглавная «C» с птичкой	Č	5.0	U+010C Č
Ccaron => 268,
# č	латинская строчная «c» с птичкой	č	5.0	U+010D č
ccaron => 269,
# ÄŽ	латинская заглавная «D» с птичкой	Ď	5.0	U+010E Ď
Dcaron => 270,
# ď	латинская строчная «d» с птичкой (в шрифтах предпочтителен вариант с апострофом)	ď	5.0	U+010F ď
dcaron => 271,
# Đ	латинская заглавная «D» с горизонтальным штрихом. На вид может не отличаться от Eth (Ð, U+00D0, Ð)	Đ	5.0	U+0110 Đ
Dstrok => 272,
ETH => 272,
# Ä‘	латинская строчная «d» с горизонтальным штрихом. На вид может не отличаться от eth (ð, U+00F0, ð)	đ	5.0	U+0111 đ
dstrok => 273,
eth => 273,
# Ä’	латинская заглавная «E» с макроном	Ē	5.0	U+0112 Ē
Emacr => 274,
# Ä“	латинская строчная «e» с макроном	ē	5.0	U+0113 ē
emacr => 275,
# Ä”	латинская заглавная «E» с бреве			U+0114 Ĕ
# Ä•	латинская строчная «e» с бреве			U+0115 ĕ
# Ä–	латинская заглавная «E» с точкой сверху	Ė	5.0	U+0116 Ė
Edot => 278,
# Ä—	латинская строчная «e» с точкой сверху	ė	5.0	U+0117 ė
edot => 279,
# Ę	латинская заглавная «E» с огонэком	Ę	5.0	U+0118 Ę
Eogon => 280,
# Ä™	латинская строчная «e» с огонэком	ę	5.0	U+0119 ę
eogon => 281,
# Äš	латинская заглавная «E» с птичкой	Ě	5.0	U+011A Ě
Ecaron => 282,
# Ä›	латинская строчная «e» с птичкой	ě	5.0	U+011B ě
ecaron => 283,
# Äœ	латинская заглавная «G» с циркумфлексом	Ĝ	5.0	U+011C Ĝ
Gcirc => 284,
# ĝ	латинская строчная «g» с циркумфлексом	ĝ	5.0	U+011D ĝ
gcirc => 285,
# Äž	латинская заглавная «G» с бреве	Ğ	5.0	U+011E Ğ
Gbreve => 286,
# ÄŸ	латинская строчная «g» с бреве	ğ	5.0	U+011F ğ
gbreve => 287,
# Ä 	латинская заглавная «G» с точкой сверху	Ġ	5.0	U+0120 Ġ
Gdot => 288,
# Ä¡	латинская строчная «g» с точкой сверху	ġ	5.0	U+0121 ġ
gdot => 289,
# Ä¢	латинская заглавная «G» с цедилью	Ģ	5.0	U+0122 Ģ
Gcedil => 290,
# Ä£	латинская строчная «g» с цедилью			U+0123 ģ
# Ĥ	латинская заглавная «H» с циркумфлексом	Ĥ	5.0	U+0124 Ĥ
Hcirc => 292,
# Ä¥	латинская строчная «h» с циркумфлексом	ĥ	5.0	U+0125 ĥ
hcirc => 293,
# Ħ	латинская заглавная «H» с горизонтальным штрихом	Ħ	5.0	U+0126 Ħ
Hstrok => 294,
# ħ	латинская строчная «h» с горизонтальным штрихом	ħ	5.0	U+0127 ħ
hstrok => 295,
# Ĩ	латинская заглавная «I» с тильдой	Ĩ	5.0	U+0128 Ĩ
Itilde => 296,
# Ä©	латинская строчная «i» с тильдой	ĩ	5.0	U+0129 ĩ
itilde => 297,
# Ī	латинская заглавная «I» с макроном	Ī	5.0	U+012A Ī
Imacr => 298,
# Ä«	латинская строчная «i» с макроном	ī	5.0	U+012B ī
imacr => 299,
# Ĭ	латинская заглавная «I» с бреве			U+012C Ĭ
# Ä­	латинская строчная «i» с бреве			U+012D ĭ
# Ä®	латинская заглавная «I» с огонэком	Į	5.0	U+012E Į
Iogon => 302,
# į	латинская строчная «i» с огонэком	į	5.0	U+012F į
iogon => 303,
# Ä°	латинская заглавная «I» с точкой сверху	İ	5.0	U+0130 İ
Idot => 304,
# ı	латинская строчная «i» без точки сверху	ı	5.0	U+0131 ı ı
imath => 305,
inodot => 305,
# IJ	латинская заглавная лигатура «IJ»	IJ	5.0	U+0132 IJ
IJlig => 306,
# ij	латинская строчная лигатура «ij»	ij	5.0	U+0133 ij
ijlig => 307,
# Ä´	латинская заглавная «J» с циркумфлексом	Ĵ	5.0	U+0134 Ĵ
Jcirc => 308,
# ĵ	латинская строчная «j» с циркумфлексом	ĵ	5.0	U+0135 ĵ
jcirc => 309,
# Ķ	латинская заглавная «K» с цедилью	Ķ	5.0	U+0136 Ķ
Kcedil => 310,
# Ä·	латинская строчная «k» с цедилью	ķ	5.0	U+0137 ķ
kcedil => 311,
# ĸ	латинская строчная «kra» (гренландское «к»)	ĸ	5.0	U+0138 ĸ
kgreen => 312,
# Ĺ	латинская заглавная «L» с акутом	Ĺ	5.0	U+0139 Ĺ
Lacute => 313,
# ĺ	латинская строчная «l» с акутом	ĺ	5.0	U+013A ĺ
lacute => 314,
# Ä»	латинская заглавная «L» с цедилью	Ļ	5.0	U+013B Ļ
Lcedil => 315,
# ļ	латинская строчная «l» с цедилью	ļ	5.0	U+013C ļ
lcedil => 316,
# Ľ	латинская заглавная «L» с птичкой (в шрифтах предпочтителен вариант с апострофом)	Ľ	5.0	U+013D Ľ
Lcaron => 317,
# ľ	латинская строчная «l» с птичкой (в шрифтах предпочтителен вариант с апострофом)	ľ	5.0	U+013E ľ
lcaron => 318,
# Ä¿	латинская заглавная «L» с точкой посередине	Ŀ	5.0	U+013F Ŀ
Lmidot => 319,
# Å€	латинская строчная «l» с точкой посередине	ŀ	5.0	U+0140 ŀ
lmidot => 320,
# Ł	латинская заглавная «L» с горизонтальным штрихом	Ł	5.0	U+0141 Ł
Lstrok => 321,
# Å‚	латинская строчная «l» с горизонтальным штрихом	ł	5.0	U+0142 ł
lstrok => 322,