view release on metacpan or  search on metacpan

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

commat => 64,
#
#
# U+0041—U+005A — заглавные латинские буквы A—Z[15]
#
# [	левая квадратная скобка	[	5.0	U+005B [ [
lbrack => 91,
lsqb => 91,
# \	обратная косая черта[16]	\	5.0	U+005C \
bsol => 92,
# ]	правая квадратная скобка	]	5.0	U+005D ] ]
rsqb => 93,
rbrack => 93,
# ^	карет — (может быть как высоко, так и среднерасположенным)[17][18]	^	5.0	U+005E ^
Hat => 94,
# _	занимающее позицию подчёркивание (должно стыковаться по горизонтали)[19]	_	5.0	U+005F _ _
lowbar => 95,
UnderBar => 95,
# `	занимающий позицию обратный апостроф (грейв)[20]	`	5.0	U+0060 ` `
grave => 96,
DiacriticalGrave => 96,
#
# U+0061—U+007A — строчные латинские буквы a—z[21]
# {	левая фигурная скобка	{	5.0	U+007B { {
lcub => 123,
lbrace => 123,
# |	вертикальная черта[22]	|	5.0	U+007C | | |
verbar => 124,
vert => 124,
VerticalLine => 124,
# }	правая фигурная скобка	}	5.0	U+007D } }
rcub => 125,
rbrace => 125,
# ~	занимающая позицию тильда (может быть как высоко, так и среднерасположенной, не рекомендуется к использованию)[23][24]			U+007E ~
#
# U+007F — управляющие символы C0
# Управляющие символы C1 и дополнение из Latin-1
# U+0080—U+00FF
# Исторически в диапазон U+00A0—U+00FF («Дополнение из Latin‑1») переносились литеры из соответствующих позиций Latin‑1 (ISO 8859‑1), пока не стало объÑ...
# Символ	Назначение	Мнемоника	HTML	Код
# U+0080—U+009F — управляющие символы C1
# U+00A0—U+00FF — дополнение из Latin‑1
#
#  	неразрывный пробел	 	5.0	U+00A0    	3.2
NonBreakingSpace => 160,
nbsp => 160,
# ¡	перевёрнутый восклицательный знак	¡	3.2	U+00A1 ¡
iexcl => 161,
# ¢	символ цента	¢	3.2	U+00A2 ¢
cent => 162,
# £	символ фунта	£	3.2	U+00A3 £
pound => 163,
# ¤	знак валюты	¤	3.2	U+00A4 ¤
curren => 164,
# Â¥	символ иены и юаня	¥	3.2	U+00A5 ¥
yen => 165,
# ¦	разорванная вертикальная черта	&brkbar;	нестандарт	U+00A6 ¦
brkbar => 166,
# ¦	3.2
brvbar => 166,
# §	знак параграфа	§	3.2	U+00A7 §
sect => 167,
# ¨	диерезис, трема умлаут (все занимают позицию)	¨	5.0	U+00A8 ¨ ¨	5.0 ¨	5.0 ¨	3.2
die => 168,
Dot => 168,
DoubleDot => 168,
uml => 168,
# ©	знак охраны авторского права	©	5.0	U+00A9 © ©	3.2
COPY => 169,
copy => 169,
# ª	порядковый индикатор (женский род)	ª	3.2	U+00AA ª
ordf => 170,
# «	направленная влево двойная угловая кавычка	«	3.2	U+00AB «
laquo => 171,
# ¬	знак «отрицание»	¬	3.2	U+00AC ¬
not => 172,
# ­	мягкий перенос (обозначает место возможного переноса: при отсутствии переноса невидим, при наличии — виден как дефис перед разрывом Ñ...
shy => 173,
# ®	знак правовой охраны товарного знака	®	5.0	U+00AE ® ®	5.0 ®	3.2
REG => 174,
circledR => 174,
reg => 174,
# ¯	занимающий позицию макрон	&hibar;	нестандарт	U+00AF ¯ &macron;	нестандарт ¯	5.0 ¯	3.2
hibar => 175,
macron => 175,
strns => 175,
macr => 175,
# °	занимающий позицию знак градуса	&degree;	нестандарт	U+00B0 ° °	3.2
degree => 176,
deg => 176,
# ±	плюс-минус	±	5.0	U+00B1 ± ±	5.0 ±	3.2
pm => 177,
PlusMinus => 177,
plusmn => 177,
# ²	верхний индекс «2»	²	3.2	U+00B2 ²
sup2 => 178,
# ³	верхний индекс «3»	³	3.2	U+00B3 ³
sup3 => 179,
# ´	занимающий позицию акут	´	5.0	U+00B4 ´ ´	3.2
DiacriticalAcute => 180,
acute => 180,
# µ	дольный префикс микро микрон — устаревшее обозначение микрометра	µ	3.2	U+00B5 µ
micro => 181,
# ¶	знак абзаца	¶	3.2	U+00B6 ¶
para => 182,
# ·	интерпункт	·	5.0	U+00B7 · ·	5.0 ·	3.2
middot => 183,
CenterDot => 183,
centerdot => 183,
# ¸	занимающая позицию седиль	¸	5.0	U+00B8 ¸ ¸	3.2
Cedilla => 184,
cedil => 184,
# ¹	верхний индекс «1»	¹	3.2	U+00B9 ¹
sup1 => 185,
# º	порядковый индикатор (мужской род)	º	3.2	U+00BA º
ordm => 186,
# »	направленная вправо двойная угловая кавычка	»	3.2	U+00BB »
raquo => 187,
# ¼	простая дробь «одна четвёртая»	¼	3.2	U+00BC ¼
frac14 => 188,
# ½	простая дробь «одна вторая»	½	5.0	U+00BD ½ ½	3.2
half => 189,

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

div
dl
dt

em

figcaption
figure
font
footer

h1
h2
h3
h4
h5
h6
header
hgroup
hr

i
img

ins
isindex

kbd
keygen

li

main
map
marquee
mark
menu

meter

nav
nobr
noembed
noframes
noscript

ol

p
pre
progress

q

rp
rt
ruby

s
samp
section
small
span
strike
strong
   sub
summary
sup

table
tbody
td
tfoot
th
thead
time

tr
tt

u
ul

var

wbr
/;

my %SAFE_ATTR = map {$_=>1} qw/
pubdate datetime
open optimum

dir lang language style tabindex title high low hreflang icon

max min

href media ping rel rev name type

class

src

alt crossorigin decoding height width importance  intrinsicsize loading sizes srcset

align border hspace vspace longdesc  axis  char charoff summary

colspan rowspan

border cite bgcolor color

coords
/;

# срезает у html-я опасные, а так же неведомые теги
sub safe_html($;$) {
	(local $_, my $link) = @_;

	my $f = sub {
		return "" if !exists $SAFE_TAG{lc $2};
		return "</$2>" if $1 ne "";
		my $tag = $2;