++ed by:
SSCAFFIDI

1 PAUSE user(s)

Stephen R. Scaffidi

NAME

Date::Extract::Surprise - extract probable dates from strings *with surprises*

VERSION

version 0.001

SYNOPSIS

  use Date::Extract::Surprise;
  my $des = Date::Extract::Surprise->new();
  my @datetimes = $des->extract( $arbitrary_text );

  # or...
  use Date::Extract::Surprise;
  my @datetimes = Date::Extract::Surprise->extract( $arbitrary_text );

  # or...
  use Date::Extract::Surprise qw( extract_datetimes );
  my @datetimes = extract_datetimes( $arbitrary_text );

DESCRIPTION

This is modeled on Sartak's excellent Date::Extract, a proven and capable module that you can use to extract references to dates and times from otherwise arbitrary text. For example:

  "The package will be delivered at 3:15 PM, March 15, 2007, on the dot."

Upon parsing that, you should end up with a DateTime object representing March 15, 2007 at 3:15PM in your timezone.

Date::Extract is designed to try to minimize "false-positives" (ie. detecting things that *aren't* actually dates or times), but at the expense of potentially missing some dates. As its documentation states, "Surprises are not welcome here."

Because I had the opposite need - to find dates in strings even if some were going to be bogus, I created Date::Extract::Surprise which will gladly detect anything that even remotely looks like it could be a date or time.

Bottom line: at least one of the dates this will 'detect' in some text should be what you wanted. It's up to you to figure out which one that is! :-)

METHODS

new

Just your basic object constructor.

  my $des = Date::Extract::Surprise->new();

Currently takes only one argument:

extract

This is designed to (more or less) mirror the interface of Date::Extract->extract(). However, at this time, it supports almost none of its namesake's extra options, and adds one additional option.

This can be called as either a class method or as a method on an object, as seen in the SYNOPSIS.

FUNCTIONS

extract_datetimes

If you're old-skool and prefer things to export a function, you can have it.

It takes the same arguments as the extract method and returns the same values.

It will probably take more in the future.

SEE ALSO

NOTES

Yes, this code is slow and dumb, but it helped me solve a problem and I hope it may help others, too. Let me know if you need anything changed!

I'm hoping this will work on perl 5.6 and before, because I want to be helpful to as many people as possible, but I am too lazy to test it myself. Bug reports and/or patches please!

TODO

AUTHOR

Stephen R. Scaffidi <sscaffidi@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Stephen R. Scaffidi.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.