exchange time(00:00 expression) to number(minutes)

timeToNum.pl

use strict;
use warnings;

my $timeStr = "";
my $length =  @ARGV;

if ($length>0){
  $timeStr = $ARGV[0];
}
else {
  $timeStr = <STDIN>;
}

if ($timeStr =~ /([0-9]+):([0-9]+):([0-9]+)/){
    my $var ="$1" * 60 * 60 + "$2" * 60 + "$3";
    print "$var";
} elsif ($timeStr =~ /([0-9]+):([0-9]+)/){
    my $var ="$1" * 60 + "$2";
    print "$var";
}

ex:

perl timeToNum.pl 06:08:10

you get the number 22090