Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -l

...
my $b = strftime("%s", gmtime(int $a)) ; # %s converts date to epoch 

print "diff is: ".($a - $b) ;
  2. or download this
      input time is   1160390100
  gmtime gives: Mon Oct  9 10:35:00 2006
  diff is: 3600