Demon

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

use Date::Calc 'Day_of_Week';
$date = '2011-06-03';
($year, $month, $day) = ($date =~ (/(\d+)-(\d+)-(\d+)/));
print Day_of_Week($year, $month, $day);
复制代码

Demon

2# Demon  

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

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

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

Demon

4# Demon  

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

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