Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: How to find the last date of the previous month?

by moritz (Cardinal)
on Oct 30, 2012 at 05:27 UTC ( #1001455=note: print w/replies, xml ) Need Help??


in reply to How to find the last date of the previous month?

use Date::Simple qw/today/; use 5.010; my $d = today; my $month = $d->month; $d-- while $month == $d->month; say $d;

Or

use Date::Simple qw/today ymd/; use 5.010; my $d = today; $d = ymd($d->year, $d->month, 1) - 1; say $d;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001455]
help
Chatterbox?
[ambrus]: The main loop for unixish systems is in https://metacpan. org/source/ KARASIK/Prima-1. 49/unix/apc_app.c. It is a hand-rolled select loop, but also always spins at least once every 0.2 seconds for some reason.
[ambrus]: marto: no, not that way. if you just want to test for an existing id attribute, then write *[@id] , or you can match a regexp to the value of that attribute like *[@id=~/something/ ]
[marto]: ambrus, thanks I ended up going with '//*[starts- with(@id, "thread_")]...
[ambrus]: Sometimes it's easier to just match elements in ways other than xpath, like directly with perl code.

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2016-12-08 10:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (140 votes). Check out past polls.