Lingua::ZH::DateTime - convert time to chinese format.
Index
Code Index:
NAME
Lingua::ZH::DateTime - convert time to chinese format.
SYNOPSIS
DESCRIPTION
This module can convert asctime to chinese format in your locale.
you can select china singapore hongkong taiwan locale and gb2312/big5 charset.
asctime is ASC C standard format will from localtime like this:
$asctime = localtime();
METHOD
new
my $zdt = new Lingua::ZH::DateTime(locale=>'china',charset=>'gb2312');
Instantiates a new object.
set
my $zdt->set(locale=>'china',charset=>'gb2312');
set locale and charset encode.
- * locale -> china only now.
- * charset -> gb2312 only now.
convert
$zdt->convert(asctime=>'Thu Oct 13 04:54:34 1994',output=>'date');
- * ctime -> input asctime data.
- * output -> output in 3 types: date,time,datetime.
AUTHORS
Lingua::ZH::DateTime by hoowa sun and Meng.H.
COPYRIGHT
The Lingua::ZH::DateTime module is Copyright (c) 2005-2006 hoowa sun & Meng.H
P.R.China. All rights reserved.
You may distribute under the terms of either the GNU General Public
License or the Artistic License, as specified in the Perl README file.
WARRANTY
The Lingua::ZH::DateTime is free Open Source software.
IT COMES WITHOUT WARRANTY OF ANY KIND.
SUPPORT
package Lingua::ZH::DateTime;
###########################################################
# Zhongwen Date&Time
###########################################################
# Copyright (c) 2005-2006 hoowa sun & Meng.H P.R.China
#
# See COPYRIGHT section in pod text below for usage and distribution rights.
#
# <hoowa.sun@gmail.com>
# www.perlchina.org
# last modify 2006-2-21
###########################################################
$Lingua::ZH::DateTime::VERSION='0.01';
use strict;
use vars qw/$locale $charset $lc_string $dt_string/;
$dt_string = {
'gb2312' => {
'year'=>'Äê',
'month'=>'ÔÂ',
'day'=>'ÈÕ',
},
'big5' => {
}
};
$lc_string = {
'china' => {
'month'=> {
'jan' => '1', 'feb' => '2', 'mar' => '3',
'apr' => '4', 'may' => '5', 'jun' => '6',
'Jul' => '7', 'aug' => '8', 'sep' => '9',
'sept' => '9', 'oct' => '10', 'nov' => '11',
'dec' => '12'
},
'day' => {
'1' => '1', '2' => '2', '3' => '3',
'4' => '4', '5' => '5', '6' => '6',
'7' => '7', '8' => '8', '9' => '9',
'10' => '10', '11' => '11', '12' => '12',
'13' => '13', '14' => '14', '15' => '15',
'16' => '16', '17' => '17', '18' => '18',
'19' => '19', '20' => '20', '21' => '21',
'22' => '22', '23' => '23', '24' => '24',
'25' => '25', '26' => '26', '27' => '27',
'28' => '28', '29' => '29', '30' => '30',
'31' => '31'
},
'hour' => {
'1' => '1', '2' => '2', '3' => '3',
'4' => '4', '5' => '5', '6' => '6',
'7' => '7', '8' => '8', '9' => '9',
'10' => '10', '11' => '11', '12' => '12',
'13' => '13', '14' => '14', '15' => '15',
'16' => '16', '17' => '17', '18' => '18',
'19' => '19', '20' => '20', '21' => '21',
'22' => '22', '23' => '23', '24' => '24'
}
}
};
sub new {
my $self = {};
my (undef,%args) = @_;
$locale = $args{'locale'} if ($args{'locale'});
$charset = $args{'charset'} if ($args{'charset'});
bless $self;
return $self;
}
##############################
# METHOD
sub set {
my $self = shift;
my %args = @_;
$locale = $args{'locale'} if($args{'locale'});
$charset = $args{'charset'} if ($args{'charset'}) ;
return(1);
}
sub convert {
my $self = shift;
my %args = @_;
my ($week,$year,$mon,$day,$hour,$min,$sec,$date,$time);
if (!$args{'asctime'}) {
$args{'asctime'} = localtime();
}
($week,$mon,$day,$time,$year) = split(/\s+/,$args{'asctime'});
($hour,$min,$sec) = split(/:/,$time);
$mon = lc($mon);
$hour =~ s/^0//;
$args{'output'} = "datetime" if(!$args{'output'});
$locale = "china" if(!$locale);
$charset = "gb2312" if(!$charset);
if ($locale eq 'china') {
$date = $year . $dt_string->{$charset}{"year"} .
$lc_string->{$locale}{'month'}{$mon} . $dt_string->{$charset}{"month"} .
$lc_string->{$locale}{'day'}{$day} . $dt_string->{$charset}{"day"};
$time = $lc_string->{$locale}{'hour'}{$hour} . ":$min:$sec";
}
#return value
return $date if($args{'output'} eq 'date');
return $time if($args{'output'} eq 'time');
return "$date $time" if($args{'output'} eq 'datetime');
}
1;