Re: Last month's number with Time::Piece

It's an object, you can use the method: mon()

print $lastmonth->mon, "\n";
print "ref: ", ref $lastmonth, "\n";
print "one: ", $t->add_months(-1)->mon, "\n"; # all together
[download]

Result:

11
ref: Time::Piece
one: 11
[download]

Update: added ref() and example for clarification.

Comment on Re: Last month's number with Time::Piece Select or Download Code

Replies are listed 'Best First'.
Re^2: Last month's number with Time::Piece by Anonymous Monk on Dec 04, 2014 at 18:51 UTC
That worked just fine, thanks a lot!	[reply]
Re^2: Last month's number with Time::Piece by Anonymous Monk on Dec 04, 2014 at 19:04 UTC
To complement, with this I am trying to also get the last day of the last month, here is what I am using, it might be a shorter way as well: `use warnings; use strict; use Time::Piece; my $t = Time::Piece->new(); my $year = $t->year; my $last_month = $t->add_months(-1)->mon; # Pass the last month and year to a new Time::Piece object my $t_last_month = Time::Piece->strptime("$last_month$year", "%m%Y"); # Now use Time::Piece month_last_day to get it my $last_day_of_month = $t_last_month->month_last_day; print "Last Month = $last_month - It's last day = $last_day_of_month \ +n";` [download] Thanks!	[reply] [d/l]
Re^3: Last month's number with Time::Piece by Anonymous Monk on Dec 05, 2014 at 14:20 UTC
just a short observation - to make this work correctly, add a line like this before calling strptime: if (length($last_month) == 1) { $last_month = "0" . $last_month; }	[reply]