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: Dutch.pm
## ## Dutch tables ## Contributed by Johannes la Poutre <jlpoutre@corp.nl.home.com> ## package Date::Language::Dutch; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.02"; @MoY = qw(januari februari maart april mei juni juli augustus september oktober november december); @MoYs = map(substr($_, 0, 3), @MoY); $MoYs[2] = 'mrt'; # mrt is more common (Frank Maas) @DoW = map($_ . "dag", qw(zon maan dins woens donder vrij zater)); @DoWs = map(substr($_, 0, 2), @DoW); # these aren't normally used... @AMPM = qw(VM NM); @Dsuf = ('e') x 31; @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("%2de",$_[0]->[3]) } 1;
Upload File
Create Folder