Mailheader mit Datum nach RFC 2822 erstellen: Mailheader Bearbeitung Time::localtime - #76841 (Fragen zu Perl-Modulen)

esskar

2007-05-23 21:11

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

nö

perl

Code: (dl )

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'};

^Z
Date: Wed, 23 May 2007 21:10:25 +0200

aber dir muss klar sein, dass das +0200 einfach hintendran hängen nur dann richtig ist, wenn du dich z.b. in deutschland befindest.
auf meinem system ist diese angabe nämlich falsch!\n\n