return sprintf "<table>\n%s</table>\n", join '', map {"<tr>$_\n"} @rows;
}
+print "<h2>Common</h2>\n\n";
+print table(@$_) for (
+ [ 3 => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]],
+ [ 3 => [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]],
+ [ 3 => [qw{. å ä ö ü ß . Å æ ø ű ſ}]],
+ [ 3 => [qw{. ¿ ç ñ é ê è}]],
+);
+
print "<h2>Arrows</h2>\n\n";
print table(@$_) for (
[ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
print "<h2>Line drawing</h2>\n\n";
print table(@$_) for (
- [ 4 => [qw{. ┌ ┬ ┐ ─ . ├ ┼ ┤ │ . └ ┴ ┘ -}]],
- [ 4 => [qw{. ┏ ┳ ┓ ━ . ┣ ╋ ┫ ┃ . ┗ ┻ ┛ -}]],
+ [ 4 => [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]],
+ [ 4 => [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]],
[ 3 => [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]],
[ 3 => [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]],
-# [ 4 => [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ -}]],
-# [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛}]],
-# [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜}]],
+ [ 4 => [qw{
+ . ╴ ─ ╌ ┄ ┈ ╶ ╾
+ . ╸ ━ ╍ ┅ ┉ ╺ ╼
+ . ╵ │ ╎ ┆ ┊ ╷ ╿
+ . ╹ ┃ ╏ ┇ ┋ ╻ ╽
+ }]],
+ [ 1 => [qw{. ╱ ╳ ╲ }]],
+ [ 4 => [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }]],
+ [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }]],
+ [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]],
);
print "<h2>Signs</h2>\n\n";
],
);
+print "<h2>Japanese</h2>\n\n";
+print table(@$_) for (
+ [
+ 1 => [qw{
+ . あ い う え お =
+ . か き く け こ =
+ . さ し す せ そ =
+ . た ち つ て と =
+ . な に ぬ ね の ん
+ . は ひ ふ へ ほ =
+ . ま み む め も =
+ . や = ゆ = よ =
+ . ら り る れ ろ =
+ . わ ゐ = ゑ を =
+ }],
+ ['', qw{K S T N H M Y R W}],
+ [qw{A I U E O}, ''],
+ ],
+ [
+ 1 => [qw{
+ . が ぎ ぐ げ ご
+ . ざ じ ず ぜ ぞ
+ . だ ぢ づ で ど
+ . ば び ぶ べ ぼ
+ . ぱ ぴ ぷ ぺ ぽ
+ }],
+ [qw{G Z D B P}],
+ [qw{A I U E O}],
+ ],
+ [
+ 1 => [qw{
+ . ア イ ウ エ オ ー
+ . カ キ ク ケ コ =
+ . サ シ ス セ ソ =
+ . タ チ ツ テ ト =
+ . ナ ニ ヌ ネ ノ ン
+ . ハ ヒ フ ヘ ホ =
+ . マ ミ ム メ モ =
+ . ヤ - ユ - ヨ =
+ . ラ リ ル レ ロ =
+ . ワ ヰ - ヱ ヲ =
+ }],
+ ['', qw{K S T N H M Y R W}],
+ [qw{A I U E O}, ''],
+ ],
+ [
+ 1 => [qw{
+ . ガ ギ グ ゲ ゴ
+ . ザ ジ ズ ゼ ゾ
+ . ダ ヂ ヅ デ ド
+ . バ ビ ブ ベ ボ
+ . パ ピ プ ペ ポ
+ . ヷ ヸ ヴ ヹ ヺ
+ }],
+ [qw{G Z D B P V}],
+ [qw{A I U E O}],
+ ],
+);