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

Re: RFC: List of first day of each month -- oneliner

by Discipulus (Canon)
on Jan 31, 2020 at 20:09 UTC ( [id://11112205]=note: print w/replies, xml ) Need Help??


in reply to RFC: List of first day of each month

Hello TieUpYourCamel,

it is a nice question and you posted nice code and had back interesting and wise answers.. but when I see so simple tasks I cannot resist to try a oneliner solution ;)

perl -e "while($ARGV[0]<=$ARGV[1]){$t=scalar localtime($ARGV[0]);print + $t.$/ if $t=~/\s1\s/;$ARGV[0]+=86400}" 1580500427 1591220427 Sat Feb 1 20:53:47 2020 Sun Mar 1 20:53:47 2020 Wed Apr 1 21:53:47 2020 Fri May 1 21:53:47 2020 Mon Jun 1 21:53:47 2020

it is not bugged for year 1 ;)

L*

PS shorter

perl -e "$t=shift;while($t<=$ARGV[0]){print gmtime($t)=~/(.*\w 1)/?$1 +.$/:'';$t+=86400}" # or perl -e "$t=shift;while($t<=$ARGV[0]){print gmtime($t)=~/(.* 1)/?$1.$ +/:'';$t+=86400}" # or perl -le "$t=shift;while($t<=$ARGV[0]){gmtime($t)=~/(.* 1)/?print$1:0 +;$t+=86400}" 1580500427 1591220427 Sat Feb 1 Sun Mar 1 Wed Apr 1 Fri May 1 Mon Jun 1

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11112205]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2024-04-18 05:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found