Aktuelle Zeit (nicht seit 1970)

[Struppi]

Was meinst du denn damit?
Millisekunden von was?

Heute: Mon Jul 3 12:45:32 2006 hatte ich 151923532 Millisekunden.

Wie komme ich den Millisekunden-Wert von heute, der um 00:00:00 war?

Du meinst wenn 00:00 Uhr = 0 entspricht?

Dann z.b. so:

  
#!/usr/bin/perl -w  
use strict;  
use Time::Local;  
use POSIX qw/strftime/;  
  
my $time = time;  
my ( $sec, $min, $hour, $mday, $mon, $year) = localtime($time);  
my $time_offset = timelocal(0, 0, 0,$mday,$mon,$year);  
  
print strftime('%c', $sec, $min, $hour, $mday, $mon, $year)  
, sprintf ' Es sind %dms seit 00::00 Uhr vergangen.', ($time - $time_offset);  

Struppi.