Re^2: Find 30 days from today's date

A couple of tweaks improve it somewhat:

C:\test>perl -e "$x = scalar localtime (int(time()/43200)*43200 - $ARG
+V[0] * 86400); substr($x,11,9,''); print $x" 30
Thu Mar 20 2014
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^2: Find 30 days from today's date Download Code

Replies are listed 'Best First'.
Re^3: Find 30 days from today's date by Discipulus (Canon) on Apr 19, 2014 at 22:03 UTC
eh eh quoting you is like a summoning spell.. you burned me on time (appropriate analogy) BrowserUk .. i was thinking how to tweak it too. And if you are searching files newer than..? my oneliner skips all seconds between midnigth and the current second: this seems to be an headcache for anonymous. So i have tweacked this way: `perl -MTime::Local -e " print scalar localtime (timelocal(0, 0, 0, @{[ +localtime(time - $ARGV[0] * 86400)]}[3..8]))" 30 #output Thu Mar 20 00:00:00 2014` [download] very lazy solution. HtH L* 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.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Find 30 days from today's date
by Discipulus (Canon) on Apr 19, 2014 at 22:03 UTC

BrowserUk

perl -MTime::Local -e " print scalar localtime (timelocal(0, 0, 0, @{[
+localtime(time - $ARGV[0] * 86400)]}[3..8]))" 30

#output
Thu Mar 20 00:00:00 2014
[download]

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.

[reply]
[d/l]