Select Code to Download

3h4m            11040      3h4m      
1h2m3s          3723       1h2m3s    
1h5s            3605       1h5s      
...
3x              -1                   
2m2m            -1                   
23h59m59s       86399      23h59m59s

my @time_values = qw [ d h m s ];
my %time_value  = ( d => 86400, h => 3600, m => 60, s => 1 );

...

        return $value;
}

#!/usr/bin/perl -w

use strict;
...
        my $t2s = time_to_string($s2t);
        printf ("%-15s %-10s %-10s\n", $_, $s2t, $t2s);
}