Re: Diff'ing dates

Replies are listed 'Best First'.
Re^2: Diff'ing dates by LighthouseJ (Sexton) on Oct 02, 2007 at 14:33 UTC
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`	[reply] [d/l]
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]
Re^2: Diff'ing dates by LighthouseJ (Sexton) on Oct 02, 2007 at 14:19 UTC
I tried the command and this is what I got: `$ echo -e "Sun 09 30 06 42 36 2007\nTue 10 02 06 01 55 2007\n" \| perl +-MTime::Local -lane"END{print$t}$F[1]--;$t+=($.2-3)timelocal@F[5,4, +3,2,1,6]" Can't modify single ref constructor in postdecrement (--) at -e line 1 +, near "]--" syntax error at -e line 1, near "+=" Execution of -e aborted due to compilation errors.` [download] "The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why." -- `man perl`	[reply] [d/l]
Re^3: Diff'ing dates by shmem (Chancellor) on Oct 02, 2007 at 14:47 UTC
Use single quotes on UNIX-like operating systems: `echo -e "Sun 09 30 06 42 36 2007\nTue 10 02 06 01 55 2007\n" \| \ perl -MTime::Local -lane 'END{print$t}$F[1]--;$t+=($.2-3)timelocal@F +[5,4,3,2,1,6]'` [download] Double quotes cause your shell to interpret e.g. `$t` as a shell variable. --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]
Re^3: Diff'ing dates by ikegami (Patriarch) on Oct 02, 2007 at 14:43 UTC
Use the appropriate quotes for your shell. Switch double quotes for single quotes.	[reply]
Re^4: Diff'ing dates by LighthouseJ (Sexton) on Oct 02, 2007 at 15:23 UTC
I figured you had written the one-liner with single quotes anyway. The small monospace text perlmonks use looked like single quotes because I knew I didn't want to interpolate any variables. "The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why." -- `man perl`	[reply]