28 lines
548 B
Perl
Executable file
28 lines
548 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Getopt::Long;
|
|
|
|
sub TimeCalc($$) {
|
|
my($date, $start) = @_;
|
|
my $finish = $start;
|
|
use Date::Manip;
|
|
$start =~ s/^\s*([^\-]+)\-.*$/$1/;
|
|
$finish =~ s/^.*\-([^\-]+)\s*$/$1/;
|
|
$start = ParseDate("$date $start");
|
|
$finish = ParseDate("$date $finish");
|
|
return Delta_Format(DateCalc($start, $finish), 5, '%ht');
|
|
}
|
|
my $input;
|
|
if (@ARGV == 0) {
|
|
$input = <STDIN>;
|
|
chomp $input;
|
|
} elsif (@ARGV == 1) {
|
|
$input = $ARGV[0];
|
|
} else {
|
|
die "oneargor noarg";
|
|
}
|
|
|
|
print TimeCalc('today', $input), "\n";
|