Re^2: Diff'ing dates

Using your inspiring one-liner, I morphed my script with yours and came up with this:

/bin/perl -MTime::Local -ne '{$t[1]-- && push(@epochs,timelocal(@t[5,4,3,2,1,6])) if (@t=split)} END { print $epochs[1] - $epochs[0]; }'

The END block is most likely what will change because the value of the diff will be used to determine exit status.

Thanks a lot for the fresh perspective, it was very helpful.

"The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why." -- `man perl`

Comment on Re^2: Diff'ing dates Download Code

Replies are listed 'Best First'.
Re^3: Diff'ing dates by ikegami (Patriarch) on Oct 02, 2007 at 14:50 UTC
The exit code can be controled as follows: `END { exit 1+($epochs[0] <=> $epochs[1]) }` [download] `0: first time is earlier 1: both times are the same 2: second time is earlier` [download] `perl -MTime::Local -lane'END{exit 1+($d<=>0)}$F[1]--;$d+=($.2-3)time +local@F[5,4,3,2,1,6]'` [download]	[reply] [d/l] [select]
Re^4: Diff'ing dates by LighthouseJ (Sexton) on Oct 02, 2007 at 15:30 UTC
Oh, I'm not interested in which is earlier, I know the second one will always be later (or the same) than the first. I'm more interested in the actual value of the difference but I can handle that easily enough. "The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why." -- `man perl`	[reply]