X7ROOT File Manager
Current Path:
/usr/local/share/perl5/Date/Language
usr
/
local
/
share
/
perl5
/
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
(1020 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)
π
Occitan.pm
(964 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