Opened by biede at 2007-05-22 01:59
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Ich sehe keinen Grund warum es nicht funktionieren sollte. Ich habe mal den Kern-Part rausgearbeitet und der funktioniert bei mir problemlos:
Evtl. ist es sinnvoll wenn du dir zum Debugging die Datenstrukturen via
Data::Dumper ausgeben lässt.\n\n
<!--EDIT|Ronnie|1179858096-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Entity;
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];
MIME::Entity->build(
Date => $dateWeekday.", ".$dateDay." ".$dateMonth." ".$dateYear." ".$time." +0200",
Data => [])->print;
Evtl. ist es sinnvoll wenn du dir zum Debugging die Datenstrukturen via
Data::Dumper ausgeben lässt.\n\n<!--EDIT|Ronnie|1179858096-->