File Manager

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: Gedeo.pm

##
## Gedeo tables
##

package Date::Language::Gedeo;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "0.99";

@DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme);
@MoY = (
"Oritto",
"Birre'a",
"Onkkollessa",
"Saddasa",
"Arrasa",
"Qammo",
"Ella",
"Waacibajje",
"Canissa",
"Addolessa",
"Bittitotessa",
"Hegeya"
);
@DoWs = map { substr($_,0,3) } @DoW;
$DoWs[0] = "Snb";
$DoWs[1] = "Sno";
@MoYs = map { substr($_,0,3) } @MoY;
@AMPM = qw(gorsa warreti-udumma);

@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
@Dsuf[11,12,13] = qw(th th th);
@Dsuf[30,31] = qw(th st);

@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] }

X7ROOT File Manager

Editing: Gedeo.pm

Upload File

Create Folder