How To Calculate Dates In Perl Using Date::Manip

Author: erics, September 18th, 2017

my $created_at  = '2017-09-18T13:43:40Z';
my $marker      = DateCalc('today','30 days ago');
my $cmp = Date_Cmp($created_at,$marker);
if ($cmp < 0) { print "Older than marker!\n"; } else { print "Same date or later than marker\n"; }

1

2

3

4

my $created_at = '2017-09-18T13:43:40Z';

my $marker = DateCalc('today','30 days ago');

my $cmp = Date_Cmp($created_at,$marker);

if ($cmp < 0) { print "Older than marker!\n"; } else { print "Same date or later than marker\n"; }

Categories: How-To's, Technology Tags: Calc, Date, Date::Manip, Delta, howto, perl, tips | No comments

How To Get Last Day Of Current Month With Suffix Using PERL

Author: erics, May 28th, 2011

use Date::Manip;
my @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
my $month = $months[ (localtime)[4] ];
my $last = &UnixDate("last saturday in $month", "%B %e");
$last .= &gensuffix($last);

sub gensuffix {
    my($val)    = @_;
    my $end_num = substr($val, -1, 1);
    my $suffix  = 'th';
    $suffix     = 'st'  if $end_num == 1;
    $suffix     = 'nd'  if $end_num == 2;
    $suffix     = 'rd'  if $end_num == 3;
    return $suffix;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

use Date::Manip;

my @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

my $month = $months[ (localtime)[4] ];

my $last = &UnixDate("last saturday in $month", "%B %e");

$last .= &gensuffix($last);

sub gensuffix {

my($val) = @_;

my $end_num = substr($val, -1, 1);

my $suffix = 'th';

$suffix = 'st' if $end_num == 1;

$suffix = 'nd' if $end_num == 2;

$suffix = 'rd' if $end_num == 3;

return $suffix;

}

Categories: How-To's, Technology Tags: Date, Date::Manip, localtime, perl, Suffix, UnixDate | No comments

How To Calculate Time In Perl Using Date::Manip OO Mode

Author: erics, March 22nd, 2011

my $now = new Date::Manip::Date; $now->parse(‘now’); # in GMT $now->convert(‘EST5EDT’); # in Eastern time my $then = new Date::Manip::Date; $then->parse(‘200503131131’); # in GMT $then->convert(‘EST5EDT’); # in Eastern time my $delta = $now->calc($then); my @delta = $delta->value(); # get delta values as an array foreach (@delta) { $_ = abs($_); } # remove negative signs my […]

Categories: How-To's, Technology Tags: CPAN, Date::Manip, howto, perl, tips | No comments

How To Calculate Dates In Perl Using Date::Manip

How To Get Last Day Of Current Month With Suffix Using PERL

How To Calculate Time In Perl Using Date::Manip OO Mode

Our Link Network

Business

Client Websites

Fine Dining

Friends & Family

Galleries

Health

Resources

Technology

Travel

The Archives

Latest Ramblings…

Various Topics of No Interest