[已解决]Perl怎样根据日期计算星期？

DAIC

星期一：1
星期二：2
......
星期日：7

今天是2011-06-03，如果计算出对应的数字5？

Demon

我再说一遍，问问题要找对地方。下一次我不会回答！

1. 
   
2. use Date::Calc 'Day_of_Week';
   
3. $date = '2011-06-03';
   
4. ($year, $month, $day) = ($date =~ (/(\d+)-(\d+)-(\d+)/));
   
5. print Day_of_Week($year, $month, $day);
   

复制代码

随风

2# Demon

这里也有 Perl 版块，只是刚刚开设，人气还少，很欢迎也很需要你这样高手多多解答新手的问题.
为何就一定要别人不要到这里提问呢？

Demon

2# Demon  

这里也有 Perl 版块，只是刚刚开设，人气还少，很欢迎也很需要你这样高手多多解答新手的问题.
为何就一定要别人不要到这里提问呢？
随风 发表于 2011-6-3 21:57

在这里提问无异于缘木求鱼，你会到一个Perl论坛去问批处理的问题？

我不是什么高手，我也只看了两天Perl，这些问题只要认真看书根本就不是问题。让他找个正确的地方，不是能更快找到答案吗？

随风

4# Demon

如果那个 Perl论坛 也有 批处理版块的话，如果我又正好在那里学 perl 的话，我会。
到相对专业点的论坛去找答案当然是最好的
可是在自己喜欢或方便的论坛来提问也未尝不好
论坛既然开设了相关版块，就是希望能多多吸收该类的问题和答案，任何会员的提问或解答都是论坛宝贵的财富
方便自己和帮助别人的同时，也为论坛添砖加瓦，何乐而不为呢 ^_^

Demon

4# Demon  

如果那个 Perl论坛 也有 批处理版块的话，如果我又正好在那里学 perl 的话，我会。
到相对专业点的论坛去找答案当然是最好的
可是在自己喜欢或方便的论坛来提问也未尝不好
论坛既然开设了相关版块 ...
随风 发表于 2011-6-3 22:17

放在这里一个月也不见得会有人回答。

Batcher

1. perl -le "($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);printf $wday"

复制代码

523066680

我再说一遍，问问题要找对地方。下一次我不会回答！