GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-23 02:24:25 +01:00
Code Issues Projects Releases Wiki Activity

ParseDate now understands concise things like "1w5d" or "7h30m"

Browse Source
This commit is contained in:
Pragmatic Software 2019-06-06 23:08:42 -07:00
parent 61004dd077
commit 5496d1a481
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
PBot/Utils/ParseDate.pm
View File

@ -26,12 +26,24 @@ sub initialize {
$self->{pbot} = delete $conf{pbot} // Carp::croak("Missing pbot reference to " . __FILE__);
}
# expands stuff like "7d3h" to "7 days and 3 hours"
sub unconcise {
my ($input) = @_;
my %word = (y => 'years', w => 'weeks', d => 'days', h => 'hours', m => 'minutes', s => 'seconds');
$input =~ s/(\d+)([ywdhms])/"$1 " . $word{lc $2} . ' and '/ige;
$input =~ s/ and $//;
return $input;
}
# parses English natural language date strings into seconds
# does not accept times or dates in the past
sub parsedate {
my ($self, $input) = @_;
# make some aliases
# expand stuff like 7d3h
$input = unconcise($input);
# some aliases
$input =~ s/\bsecs?\b/seconds/g;
$input =~ s/\bmins?\b/minutes/g;
$input =~ s/\bhrs?\b/hours/g;
@ -39,7 +51,7 @@ sub parsedate {
$input =~ s/\byrs?\b/years/g;
# sanitizers
$input =~ s/\s+(am?|pm?)/$1/; # remove leading spaces from am/pm
$input =~ s/(\d+)\s+(am?|pm?)/$1$2/; # remove leading spaces from am/pm
# split input on "and" or comma, then we'll add up the results
# this allows us to parse things like "1 hour and 30 minutes"