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

##
## Tigrinya-Eritrean tables
##

package Date::Language::TigrinyaEritrean;

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

if ( $] >= 5.006 ) {
@DoW = (
"\x{1230}\x{1295}\x{1260}\x{1275}",
"\x{1230}\x{1291}\x{12ed}",
"\x{1230}\x{1209}\x{1235}",
"\x{1228}\x{1261}\x{12d5}",
"\x{1213}\x{1219}\x{1235}",
"\x{12d3}\x{122d}\x{1262}",
"\x{1240}\x{12f3}\x{121d}"
);
@MoY = (
"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
"\x{121b}\x{122d}\x{127d}",
"\x{12a4}\x{1355}\x{1228}\x{120d}",
"\x{121c}\x{12ed}",
"\x{1301}\x{1295}",
"\x{1301}\x{120b}\x{12ed}",
"\x{12a6}\x{1308}\x{1235}\x{1275}",
"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
);
@DoWs = map { substr($_,0,3) } @DoW;
@MoYs = map { substr($_,0,3) } @MoY;
@AMPM = (
"\x{1295}/\x{1230}",
"\x{12F5}/\x{1230}"
);

@Dsuf = ("\x{12ed}" x 31);
}
else {
@DoW = (
"ሰንበት",
"ሰኑይ",
"ሰሉስ",
"ረቡዕ",
"ሓሙስ",
"ዓርቢ",
"ቀዳም"
);
@MoY = (
"ጥሪ",
"ለካቲት",
"መጋቢት",
"ሚያዝያ",
"ግንቦት",
"ሰነ",
"ሓምለ",
"ነሓሰ",
"መስከረም",
"ጥቅምቲ",
"ሕዳር",
"ታሕሳስ"
);
@DoWs = map { substr($_,0,9) } @DoW;
@MoYs = map { substr($_,0,9) } @MoY;
@AMPM = (
"ን/ሰ",
"ድ/ሰ"
);

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

X7ROOT File Manager

Editing: TigrinyaEritrean.pm

Upload File

Create Folder