Korrektur des Datum in Last-Modified

[Der kleine Diktator]

Perl wäre nicht Perl, wenn es nicht noch schöner gänge:

# HTTP Header for:
# Last-Modified
# Expires
sub http_date{
    my $self = shift;
    my $time = shift || time;
    my %h = ();
    @h{qw(wday month day hms year)} = 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",
        $h{wday},
        $h{day},
        $h{month},
        $h{year},
        $h{hms}
    );
}

Schöner deswegen, weil Namen statt Index.

Schöne Grüße, Alfredo da Perez