blob: fe663a04d8a0850cf7f593c488a0f17f3e07b9a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#
# Support library for script talking to the Frikanalen API
#
package Frikanalen;
require Exporter;
# SOAP:Lite m� modifiseres til � gj�re ting p� MS m�ten :-/
use SOAP::Lite on_action => sub {sprintf '%s/%s', @_}, ;
our $VERSION = 0.01;
our @ISA = qw(Exporter);
our @EXPORT = qw(
parse_duration
);
# Convert "04:05.12" to 4 * 60 + 5.12
sub parse_duration {
my $durationstr = shift;
my @parts = split(/:/, $durationstr);
my $duration = 0;
while (my $part = shift @parts) {
$duration *= 60;
$duration += int($part);
}
# print "$durationstr = $duration\n";
return $duration;
}
1;
|
