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: Romanian.pm
## ## Italian tables ## package Date::Language::Romanian; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.01"; @MoY = qw(ianuarie februarie martie aprilie mai iunie iulie august septembrie octombrie noembrie decembrie); @DoW = qw(duminica luni marti miercuri joi vineri sambata); @DoWs = map { substr($_,0,3) } @DoW; @MoYs = map { substr($_,0,3) } @MoY; @AMPM = qw(AM PM); @Dsuf = ('') 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] } 1;
Upload File
Create Folder