Hallo,

ich überarbeite gerade ein Script und habe darin diesen unsäglichen Code, nur um ein HTTP-Header-formatiertes Datum zu bekommen.

my @MON = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
my @WDAY = qw/Sun Mon Tue Wed Thu Fri Sat/;
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time);
my $hdate = sprintf("%s, %02d %s %04d %02d:%02d:%02d",$WDAY[$wday],$mday,$MON[$mon],$year+1900,$hour,$min,$sec);

Habe jetzt viel gegoogelt und es scheint wohl wirklich nichts anderes zu geben, es soll ohne Modul gehen. Aber das kann doch wirklich nicht sein?