Help for this page

Select Code to Download


  1. or download this
    #!perl
    use strict;
    ...
    my $epoch2 = str2time('20181029');
    my $secs   = $epoch2 - $epoch1;
    printf "%d - %d %d\n",$epoch2,$epoch1,$secs;