如何打印任意年的每个星期二的日期

[novesky]

如题，输入参数为年份

[ljj_jjl2008]

如果是我在windows下开发，会建立一个数据库，里面建立数据表，存放所需要的数据：公元1年1月1日是星期几，哪些年份是润年，平年每个月多少天，润年每个月多少天等等。

然后遍界面，写sql语句，先通过sql语句生成指定年份的日历，再通过sql语句过滤出是星期二的，然后显示出来。

建库、初始化、写sql语句，做前台界面。

估计大约需要1-3小时工作量。

[eexpress]

脚本去获取cal的输出就是。
awk取列。

[ljj_jjl2008]

如果写shell语句，思路估计差不多，我没有兴趣写了，
公元1年1月1日是星期几，哪些年份是润年，平年每个月多少天，润年每个月多少天写到变量和数组里面。
（sql语句）可以改成循环语句，把一年365天（或366天）是几月几号、星期几 循环计算一次，用判断语句碰到星期二的就用echo输出一次结果。

[leeaman]

这个python就蛮简单的

[leeaman]

jj叔叔的强项是sql看来是

[月下叹逍遥]

如果是C或者fortran，工作量不会太大。。。

[月下叹逍遥]

jj叔叔的强项是sql看来是

jj叔貌似不会python

[ljj_jjl2008]

jj叔叔的强项是sql看来是

jj叔貌似不会python

都说对了。

[liuenyan]

试着写了一个从cal命令里提取星期二的。尝试用awk ‘{print $3}’获取列会出错，因为cal输出的月份前几天可能是空白，用cut获取的数据是对的。

代码： 全选

#!/bin/sh

Months="Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"

for year;
do
    echo $year
    i=1
    for m in $Months;
    do 
        echo $m `cal $i $year | sed '1,2d' | cut -c7-8 | xargs echo`
        ((i++))
    done
done

exit 0

[eexpress]

jj叔叔的强项是sql看来是

jj叔貌似不会python

都说对了。

不对吧。他的强项不是lajj嘛。

[MaskRay]

[haskell]
import Data.Time.Calendar.WeekDate
import Data.Time.Calendar
import Data.List
main = mapM_ print $ nub $ map (flip (fromWeekDate 2011) 2) [1..53]
[/haskell]

[fnan]

ncal 2011|sed -nr 's/(^[^0-9]+$)|Tu(.*)/\1\2/p'

[LeePrison]

ncal 2011|sed -nr 's/(^[^0-9]+$)|Tu(.*)/\1\2/p'

ncal 2011|grep -P '^\s.*|Tu.*'

[fnan]

ncal 2011|sed -nr 's/(^[^0-9]+$)|Tu(.*)/\1\2/p'

ncal 2011|grep -P '^\s.*|Tu.*'

#perl正则太容易不好玩，通常不用。
这种效果嘛：
ncal 2011|sed -r '/^\s|^Tu/!d'