Re: one liner diff between HH military times

If you just subtract, your valid results would be [20 .. 23, 0 .. 4]. Therefore, if you provide a 4 hour offset and mod by 24, you get the criterion:

 perl -e 'print( ($ARGV[1] - $ARGV[0] + 4) % 24 <= 8, "\n")'
[download]

(or something similar based on your actual, unprovided inputs).

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Comment on Re: one liner diff between HH military times Download Code

Replies are listed 'Best First'.
Re^2: one liner diff between HH military times by dirtdog (Monk) on Dec 16, 2013 at 20:45 UTC
Thanks for the suggestion, but if my inputs are 22 and 02 (so 10PM and 2AM) the one-liner returns 1 and I would expect 4. `perl -e 'print( ($ARGV[1] - $ARGV[0] + 4) % 24 <= 8, "\n")' 22,02` [download] am i using the one-liner incorrectly?	[reply] [d/l]
Re^3: one liner diff between HH military times by Cristoforo (Curate) on Dec 16, 2013 at 21:49 UTC
The comma must be replaced by a space to feed `@ARGV`. Running the command as you did (with warnings produced this. `C:\Old_Data\perlp>perl -we "print( ($ARGV[1] - $ARGV[0])%24 <=8)" 22,0 +2 Argument "22,02" isn't numeric in subtraction (-) at -e line 1. Use of uninitialized value in subtraction (-) at -e line 1. 1` [download] With a space instead of comma it produced: `C:\Old_Data\perlp>perl -we "print( ($ARGV[1] - $ARGV[0])%24 <=8)" 22 0 +2 1` [download] To get the actual hours difference, remove the `<= 8` test. `C:\Old_Data\perlp>perl -e "print( ($ARGV[1] - $ARGV[0])%24)" 22 02 4` [download]	[reply] [d/l] [select]