Leser: 2
![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
my @dateArray = split(/\s+/, scalar localtime);
my $time = $dateArray[3];
my $dateYear = $dateArray[4];
my $dateMonth = $dateArray[1];
my $dateDay = $dateArray[2];
my $dateWeekday = $dateArray[0];
$Header{'Date'} = "Date: ".$dateWeekday.", ".$dateDay." ".$dateMonth." ".$dateYear." ".$time." +0200";
print $Header{'Date'};
1
2
3
4
5
6
use POSIX qw/strftime locale_h/;
...
my $oldlocale = setlocale(LC_TIME);
setlocale(LC_TIME, "C");
$Header{'Date'} = strftime("Date: %a, %d %b %Y %H:%M:%S %z", localtime);
setlocale(LC_TIME, $oldlocale);
![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |