Herzlichen Dank für Deine Antwort :)
Nunja, was lange gährt wird wut, hier ist ein Ergebnis:
# HTTP Header for:
# Last-Modified
# Expires
sub http_date{
my $self = shift;
my $time = shift || time;
my $p = [ split /\s+/, scalar(gmtime($time)) ];
# Thu Jan 1 00:00:01 1970
# Tue, 23 Jun 2015 20:48:49 GMT
return sprintf("%s, %02d %s %d %s GMT",
$p->[0],
$p->[2],
$p->[1],
$p->[4],
$p->[3]
);
}
Und gut, dass wir darüber gesprochen haben ;)
Schöne Grüße, Alfredo da Perez (Diktator a.D.)