Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Specialized data compression

by Kenosis (Priest)
on Sep 11, 2012 at 19:36 UTC ( #993045=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
    use Math::BaseCnv;
    ...
    
        $original;
    }
    
  2. or download this
    4Ar.dPI,-9J,ex,-3jY
    4Ar.gb5,9P,X3,-3eB
    ...
    4Ar.1g9p,-9F,Gv,-4JF
    4Ar.1jLc,-WW,-1Pz,-5FN
    4Ar.1mWX,-3H,-4J8,-4lH
    
  3. or download this
    4Ar.1c.1,-Cd,IM,-4AM
          ^
          |
          + - split on first '.' when converting back to base 10