# It seems there will be still 32bit cpus with multiple cores that day
# so I do not even think what will happen ...
use strict;
my $now = (split /\s+/,scalar localtime time)[-1];
my $year = (localtime time)[5];
my $total= int 2**32/(365*24*3600);
print $now - $year + $total;
George wrote:
> # It seems there will be still 32bit cpus with multiple cores that day
> # so I do not even think what will happen ...
>
> use strict;
> my $now = (split /\s+/,scalar localtime time)[-1];
> my $year = (localtime time)[5];
> my $total= int 2**32/(365*24*3600);
> print $now - $year + $total;
I don't understand why you posted all that.
Everybody knows about the Y2038 "problem".
perl -le 'print scalar gmtime(2**31-1)'
Tue Jan 19 03:14:07 2038