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: Occitan.pm
## ## Occitan tables, contributed by Quentn PAGÈS ## package Date::Language::Occitan; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.04"; @DoW = qw(dimenge diluns dimars dimècres dijòus divendres dissabte); @MoY = qw(genièr febrièr mars abrial mai junh julhet agost octòbre novembre decembre); @DoWs = map { substr($_,0,3) } @DoW; @MoYs = map { substr($_,0,3) } @MoY; $MoYs[6] = 'jul'; @AMPM = qw(AM PM); @Dsuf = ((qw(er e e e e e e e e e)) x 3, 'er'); @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] } 1;
Upload File
Create Folder