X7ROOT File Manager
Current Path:
/usr/share/perl5/vendor_perl/Date/Language
usr
/
share
/
perl5
/
vendor_perl
/
Date
/
Language
/
??
..
??
Afar.pm
(1.01 KB)
??
Amharic.pm
(1.88 KB)
??
Austrian.pm
(994 B)
??
Brazilian.pm
(966 B)
??
Bulgarian.pm
(2.51 KB)
??
Chinese.pm
(977 B)
??
Chinese_GB.pm
(918 B)
??
Czech.pm
(1.38 KB)
??
Danish.pm
(1.01 KB)
??
Dutch.pm
(1.06 KB)
??
English.pm
(973 B)
??
Finnish.pm
(1.21 KB)
??
French.pm
(992 B)
??
Gedeo.pm
(1.04 KB)
??
German.pm
(1.02 KB)
??
Greek.pm
(2.76 KB)
??
Hungarian.pm
(2.08 KB)
??
Icelandic.pm
(1.01 KB)
??
Italian.pm
(1006 B)
??
Norwegian.pm
(1004 B)
??
Oromo.pm
(999 B)
??
Romanian.pm
(892 B)
??
Russian.pm
(1.35 KB)
??
Russian_cp1251.pm
(1.01 KB)
??
Russian_koi8r.pm
(1.01 KB)
??
Sidama.pm
(980 B)
??
Somali.pm
(1.13 KB)
??
Spanish.pm
(922 B)
??
Swedish.pm
(1.1 KB)
??
Tigrinya.pm
(1.4 KB)
??
TigrinyaEritrean.pm
(1.86 KB)
??
TigrinyaEthiopian.pm
(1.88 KB)
??
Turkish.pm
(2.03 KB)
Editing: Chinese.pm
## ## English tables ## package Date::Language::Chinese; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.00"; @DoW = qw(星期日 星期一 星期二 星期三 星期四 星期五 星期六); @MoY = qw(一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月); @DoWs = map { $_ } @DoW; @MoYs = map { $_ } @MoY; @AMPM = qw(上午 下午); @Dsuf = (qw(日 日 日 日 日 日 日 日 日 日)) x 3; @MoY{@MoY} = (0 .. scalar(@MoY)); @MoY{@MoYs} = (0 .. scalar(@MoYs)); @DoW{@DoW} = (0 .. scalar(@DoW)); @DoW{@DoWs} = (0 .. scalar(@DoWs)); # Formatting routines sub format_a { $DoWs[$_[0]->[6]] } sub format_A { $DoW[$_[0]->[6]] } sub format_b { $MoYs[$_[0]->[4]] } sub format_B { $MoY[$_[0]->[4]] } sub format_h { $MoYs[$_[0]->[4]] } sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } sub format_o { sprintf("%2d%s",$_[0]->[3],"日") } 1;
Upload File
Create Folder