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

##
## Italian tables
##

package Date::Language::Italian;

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(Gennaio Febbraio Marzo Aprile Maggio Giugno
	   Luglio Agosto Settembre Ottobre Novembre Dicembre);
@MoYs = qw(Gen Feb Mar Apr Mag Giu Lug Ago Set Ott Nov Dic);
@DoW  = qw(Domenica Lunedi Martedi Mercoledi Giovedi Venerdi Sabato);
@DoWs = qw(Dom Lun Mar Mer Gio Ven Sab);

use Date::Language::English ();
@AMPM =   @{Date::Language::English::AMPM};
@Dsuf =   @{Date::Language::English::Dsuf};

@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: Italian.pm

Upload File

Create Folder