月 | ㋀ | %E3%8B%80 (12992) | ㋋ | %E3%8B%8B (13003) |
日 | ㏠ | %E3%8F%A0 (13280) | ㏾ | %E3%8F%BE (13310) |
日 | 月 | 火 | 水 | 木 | 金 | 土 |
---|---|---|---|---|---|---|
㏠ | ||||||
㏡ | ㏢ | ㏣ | ㏤ | ㏥ | ㏦ | ㏧ |
㏨ | ㏩ | ㏪ | ㏫ | ㏬ | ㏭ | ㏮ |
㏯ | ㏰ | ㏱ | ㏲ | ㏳ | ㏴ | ㏵ |
㏶ | ㏷ | ㏸ | ㏹ | ㏺ | ㏻ | ㏼ |
㏽ | ㏾ |
pack("U", 12991 + $month) pack("U", 13279 + $day_of_month)
#!/usr/bin/env perl # -*- coding: utf-8 -*- use strict; use warnings; use utf8; binmode STDOUT, ":utf8"; print join(",", "㋀", ord("㋀"), "㏠", ord("㏠"))."\n"; print join(",", map {"$_:".pack("U", 12991 + $_)} (1..12))."\n"; print join(",", map {"$_:".pack("U", 13279 + $_)} (1..31))."\n";
㋀,12992,㏠,13280 1:㋀,2:㋁,3:㋂,4:㋃,5:㋄,6:㋅,7:㋆,8:㋇,9:㋈,10:㋉,11:㋊,12:㋋ 1:㏠,2:㏡,3:㏢,4:㏣,5:㏤,6:㏥,7:㏦,8:㏧,9:㏨,10:㏩,11:㏪,12:㏫,13:㏬,14:㏭,15:㏮,16:㏯,17:㏰,18:㏱,19:㏲,20:㏳,21:㏴,22:㏵,23:㏶,24:㏷,25:㏸,26:㏹,27:㏺,28:㏻,29:㏼,30:㏽,31:㏾
perl -C -Mutf8 -le '$month=3;$day=11;$dow=5;print pack("U*",12991+$month,13279+$day,12842+($dow-1)%7)' ㋂㏪㈮
1〜20 | ① | %E2%91%A0 (9312) | ⑳ | %E2%91%B3 (9331) |
21〜35 | ㉑ | %E3%89%91 (12881) | ㉟ | %E3%89%9F (12895) |
36〜50 | ㊱ | %E3%8A%B1 (12977) | ㊿ | %E3%8A%BF (12991) |
1から50までなら:pack("U", 9311 + $_)
pack("U", $_ + ($_ < 21 ? 9311 : $_ < 36 ? 12860 : 12941))