月日期取得問題

DQP

原帖由 cobrawgl 于 2009-1-13 19:34 發(fā)表
#!/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能實現(xiàn)的功能，我還是比較傾向于不用package.
要不還要在商用環(huán)境上裝一個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函數(shù)的。另外perl里面日期處理的包很多呢，那位大俠有這些包的學(xué)習(xí)筆記啊。

[[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 發(fā)表
#------- Utils ------------
sub date_conv {
        $_ = shift;

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

為什么還要這個子程序，:wink:

不然要寫兩遍return后的代碼

huifeideluotuo

我在本地實驗，沒有這段子程序，也可以正確輸出結(jié)果:wink:

cobrawgl

原帖由 huifeideluotuo 于 2009-1-14 13:42 發(fā)表
我在本地實驗，沒有這段子程序，也可以正確輸出結(jié)果:wink:

哦，還真是這樣 :mrgreen:

那個 sub 是給 Date::Parse 寫的，后來看到了 Class::Date ,我以為它不認(rèn)識這種格式的日期，真是多此一舉了 :mrgreen:

謝謝啊

[ 本帖最后由 cobrawgl 于 2009-1-14 14:10 編輯 ]

huifeideluotuo

呵呵，樓上兄弟速度真快，是小弟應(yīng)該感謝你的幫助！:wink:
能否交個朋友，我的郵箱 ppl_ct@163.com

cobrawgl

原帖由 huifeideluotuo 于 2009-1-14 13:55 發(fā)表
呵呵，樓上兄弟速度真快，是小弟應(yīng)該感謝你的幫助！:wink:
能否交個朋友，我的郵箱 ppl_ct@163.com

互相幫助

cobrawgl@sohu.com

wxlfh

我也來個 wxlfh@qq.com

ynchnluiti

原帖由 cobrawgl 于 2009-1-14 13:47 發(fā)表


哦，還真是這樣

那個 sub 是給 Date:arse 寫的，后來看到了 Class:ate ,我以為它不認(rèn)識這種格式的日期，真是多此一舉了

謝謝啊

不用轉(zhuǎn)好啊，省事多了