日历问题-农历等
- eexpress
- 帖子: 58428
- 注册时间: 2005-08-14 21:55
- 来自: 长沙
Re: 日历问题-农历等
农历就是查表。
代码: 全选
● l .calendar/
calendar calendar.2011.lunar calendar.2013.lunar calendar.eexp
calendar.2010.lunar calendar.2012.lunar calendar.china
代码: 全选
● cat .calendar/tmp/下载和转换农历
# ● 2010-10-15_18:40:27
● wget http://www.herongyang.com/2010/2010_chinese_calendar_gb.html -o 2010年年历.html
● cat html转换农历.pl
#!/usr/bin/perl
use Encode;
#http://www.herongyang.com/2010/2010_chinese_calendar_gb.html
print "#ifndef _calendar_lunar
#define _calendar_lunar
LANG=utf-8
";
open (HTML,$ARGV[0])||die "没有找到农历html文件。";
@l=<HTML>; close HTML;
@l=map m:(<td.*?\d.*?/td>):,@l;
map {s/<br\/>/_/g;s/<.*?>//g;push @l;} @l;
foreach(<@l>){
chomp;
if(! /_/){$month=$_;}
else{s/_/ /g;
$_=decode("GBK", $_);$_=encode("UTF-8", $_);
print "$month/$_
";}
}
print "
#endif
";
● ./html转换农历.pl 2010年年历.html >~/.calendar/calendar.2010.lunar
● calendar -A 15 -f ~/.calendar/calendar.2010.lunar
2月 20 初七
2月 21 初八
2月 22 初九
2月 23 初十
2月 24 十一
2月 25 十二
2月 26 十三
2月 27 十四
2月 28 十五
3月 01 十六
3月 02 十七
3月 03 十八
3月 04 十九
3月 05 二十
3月 06 惊蛰
3月 07 廿二
● 鸣学