表紙 | 新規 | 編集 | 編集 | 差分 | 一覧 | RSS | 検索 | 閲覧履歴 | 作成履歴 | 更新履歴

info_to_digit関数 - YukiWikiベースのPonyWikiのソースを読んでみる その10

YukiWikiベースのPonyWikiのソースを読んでみる その10

%infobaseには更新時刻が「Tue Nov 16 14:20:27 2004」の形で保存されている。これを「20041116142027」の形式に変換する。

なつみかんに似た処理があったのでパクらせて参考にさせて頂きました。感謝。

sub info_to_digit{
    my ($info) = @_;
# Mon Oct 11 00:32:28 2004
    my ($weekday, $mon, $day, $times, $year) = split(/\s+/, $info);
    my ($hour, $min, $sec) = split(/:/, $times);
    my %month =    ("jan" => "01"
                ,"feb" => "02"
                ,"mar" => "03"
                ,"apr" => "04"
                ,"may" => "05"
                ,"jun" => "06"
                ,"jul" => "07"
                ,"aug" => "08"
                ,"sep" => "09"
                ,"oct" => "10"
                ,"nov" => "11"
                ,"dec" => "12"
                );

    while(my ($key, $tgt) = each(%month)){
        $mon =~ s/(.*)$key(.*)/$tgt/i;
    }
    $info = sprintf("%04d%02d%02d%02d%02d%02d", $year, $mon, $day, $hour, $min, $sec);
    return $info;
}

''TrackBack'' - http://you-like.to/cgi-bin/ponytail/yukiwiki/wiki.cgi/info_to_digit%b4%d8%bf%f4

先頭へ