代码： 全选
● 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\n#define _calendar_lunar\n\nLANG=utf-8\n\n";
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/_/\t/g;
$_=decode("GBK", $_);$_=encode("UTF-8", $_);
print "$month/$_\n";}
}
print "\n#endif\n";
● ./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 廿二
