Perl : formatage de date

19.10.2008, 21:37 Si vous désirez formater une date en Perl, ce code trouvé dans awstats devrait vous convenir

Code

#------------------------------------------------------- 
# Function:Format a date according to Message[78] (country date format)
# Parameters: String date YYYYMMDDHHMMSS
# Option 0=LastUpdate and LastTime date
# 1=Arrays date except daymonthvalues
# 2=daymonthvalues date (only year month and day)
# Input: $Message[78]
# Output: None
# Return: Date with format defined by Message[78] and option
#------------------------------------------------------------- 
sub Format_Date {
my $date=shift;
my $option=shift||0;
my $year=substr("$date",0,4);
my $month=substr("$date",4,2);
my $day=substr("$date",6,2);
my $hour=substr("$date",8,2);
my $min=substr("$date",10,2);
my $sec=substr("$date",12,2);
my $dateformat=$Message[78];
if ($option == 2) {
$dateformat =~ s/^[^ymd]+//g;
$dateformat =~ s/[^ymd]+$//g;
}
$dateformat =~ s/yyyy/$year/g;
$dateformat =~ s/yy/$year/g;
$dateformat =~ s/mmm/$MonthNumLib{$month}/g;
$dateformat =~ s/mm/$month/g;
$dateformat =~ s/dd/$day/g;
$dateformat =~ s/HH/$hour/g;
$dateformat =~ s/MM/$min/g;
$dateformat =~ s/SS/$sec/g;
return "$dateformat";
}

mumuri cinemona.com

mumuri: Messages : 14 377