月日期取得问题

DQP

原帖由 cobrawgl 于 2009-1-13 19:34 发表
#!/usr/bin/perl

use strict;
use warnings;

use Class:ate;
$Class:ate:ATE_FORMAT="%Y%m";

my $beg_date='20080101010101';
my $end_date='20090201235959';

my $d1 = Class:ate->new ...

不错正式多了
要是在项目中用 还是倾向于用这样的代码

HawaiiLeo

如果不用package能实现的功能，我还是比较倾向于不用package.
要不还要在商用环境上装一个package，感觉比较麻烦。

use Time::Piece::Month;
my $month = Time::Piece::Month->new('2007-12-15');
print $month->prev_month->last->date . "\n";  # "2007-11-30"が出力される。
print $month->next_month->first->date . "\n"; # "2008-01-01"が出力される。

其实Time::Piece::Month包有next_month函数的。另外perl里面日期处理的包很多呢，那位大侠有这些包的学习笔记啊。

[[i] 本帖最后由 HawaiiLeo 于 2009-1-14 10:22 编辑 [/i]]

huifeideluotuo

#------- Utils ------------
sub date_conv {
        $_ = shift;

        return [/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/];
}



为什么还要这个子程序，:wink:

ynchnluiti

原帖由 huifeideluotuo 于 2009-1-14 11:27 发表
#------- Utils ------------
sub date_conv {
        $_ = shift;

        return [/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/];
}

为什么还要这个子程序，:wink:

不然要写两遍return后的代码

huifeideluotuo

我在本地实验，没有这段子程序，也可以正确输出结果:wink:

cobrawgl

原帖由 huifeideluotuo 于 2009-1-14 13:42 发表
我在本地实验，没有这段子程序，也可以正确输出结果:wink:

哦，还真是这样 :mrgreen:

那个 sub 是给 Date::Parse 写的，后来看到了 Class::Date ,我以为它不认识这种格式的日期，真是多此一举了 :mrgreen:

谢谢啊

[ 本帖最后由 cobrawgl 于 2009-1-14 14:10 编辑 ]

huifeideluotuo

呵呵，楼上兄弟速度真快，是小弟应该感谢你的帮助！:wink:
能否交个朋友，我的邮箱 ppl_ct@163.com

cobrawgl

原帖由 huifeideluotuo 于 2009-1-14 13:55 发表
呵呵，楼上兄弟速度真快，是小弟应该感谢你的帮助！:wink:
能否交个朋友，我的邮箱 ppl_ct@163.com

互相帮助

cobrawgl@sohu.com

wxlfh

我也来个 wxlfh@qq.com

ynchnluiti

原帖由 cobrawgl 于 2009-1-14 13:47 发表


哦，还真是这样

那个 sub 是给 Date:arse 写的，后来看到了 Class:ate ,我以为它不认识这种格式的日期，真是多此一举了

谢谢啊

不用转好啊，省事多了