Cyclical Japh

[liverpole]

This obfuscation was a good chance for me to become more familiar with the Date::Calc module.

(Update:  I should have made this more clear -- as my coworker discovered this morning -- you need to actually have Date::Calc installed, otherwise the program won't produce any output.)

The script takes either a single argument, in the form of a date (eg. "8/22/98" or "Aug-22-1998"), or two dates (earlier one first).

And the purpose of the program is ...

<Reveal this spoiler or all in this thread>

         s''us                  e`Date               ::Cal
            c`qw|               :all|;su        b`J{3
               0+31*            sin($   H*2/pop)}
                  sub`A         {Date   _to_D ays@_
                      [0..2     ]}sub`P{$         ARGV[
                          pop]} sub`H                 {($_=
                           P+pop)?A+D                    ecode
                       _Date    _US($_                      ):A+T
                   oday}        sub`_{"|".                    Date_
               to_Te            xt+Ad   d_Del                 ta_Da
           ys+(1                )x3,p       op}su             b`b{@
        _=(2+                   $A==$          J?"-"         :$")x
     61;$_                      [30]=             qw/h`    j`a`p
   /[$P%                        4];$_                  [J+23]
  ="P";                         $_[J+                  28]="E
  ";$_[                         J+33]            ="I";    warn"
  |".jo                         in(""       ,@_).           _($P+
  ++-++                         $H*0-  1).$/                 ;--$J
  &&&b}                         `$J=(                         P+2)|
   |48;$                    A=$J/2-1;                         $P=-$
     A+H+1             ;b`if    $H=$P                         -(H+0
        )';s*     [\s#]         **gx;                         s\`\$
           "\g                  ;eval