Normales Datum in Unix Format umrechnen

[Kokol]

Hi,

Danke für deine Antwort.
Leider kommt mein Provider mit Modulen nicht zurecht (?)

Folgendes Script führt zum Fehler:
#!/usr/bin/perl

#use Date::Calc;
#use Date::Calc qw(Delta_Days Add_Delta_Days Today Add_Delta_DHMS Today_and_Now);
#$datecheck = Add_Delta_DHMS(Today_and_Now(), +7);
#($y,$m,$d,$H,$M,$S) = Add_Delta_DHMS(02.12.2008, +7,-5,+30,0);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time+($tzone*3600));
$mon = $mon + 1;
$hour = $hour + 1;
if($hour < 10){ $hour = "0$hour"; }
if($min < 10){$min = "0$min"; }
if($sec < 10){$sec = "0$sec"; }
if($mday < 10){$mday = "0$mday"; }
if($mon < 10){$mon = "0$mon"; }
$year = $year + 1900;

Time::Local;
$unix1 = timelocal(8,00,0,10,25,2004);
$unix2 = timelocal(12,00,0,10,25,2004);
#$unixB1 = gmtime($unix1);
#$unixB2 = gmtime($unix2);

print "Content-type: text/html\n\n";
print qq~
$time  <br>
$unix1 <br>
$unix2 <br>
$unixB1 <br>
$unixB2
~ ;

exit();