Chris's Random Ramblings

Thu, 12 Feb 2004 - Why we should all be programming in perl

#! /usr/bin/perl -w

                   '% * % % * % %<>
              * % ~ * % % * % * * % *      *
      * % % * *   % * % *<> * % ~   % % % * %
    *  * * % * % % % % * % % % % % % * % % * %
    % * % % ^ * % % % % *[] % % * * % * * % %  %
     % * %   % % % % % * * % * * @ *   @ % * % %
   % ^ % * % * % * * % % * %  <> % % % % * % %() %
 % % * * * % % * % % * * % * * * * % * * % % * * *
  %   * * * % % * % % *[]<> % % % % * % * * * % % *<>
% * *  % % % * * % * * * \ * %\ * * *   %/ \ # % * *
 % % % *\ * /\ * *// %  %\ <>\ // % %/ % \// % * %
   * * *\ \|| \ \/ / % %// \ \ *\ /<> %//  %// % %<>
  * % * %\  \  |   | ||// % || //  \// % // * * * %
  %{} %  * ----\   \ | /   %||//   /  ---/ / * % % *
    % *  *\ ____\   \| |    /  /  /   /----/ * %
           \ ----\     |   /   //    /
                  \     \ /        /'
                   =~m/(.*)/s;$_=$1;
                    s![-\\|_/\s]!!g
                      ;%e=('%',0,
                      '^',132918,
                      '~'=>18054,
                      '@'=>19630,
                      '*' =>0b01,
                      '#'=>13099,
                      '[]'=>4278,
                      '<>'=>2307,
                      '{}'=>9814,
                      '()',2076);
                      for $a(keys
                      %e){$e{$a}=
                      sprintf"%b"
                      , $e{$a};}
                    $y= qq{(}.join(
                    '|',map "\Q$_\E"
                  ,keys %e).qq{)};s/$y
             /$e{$1}/gex;print pack"B*",$_;

[/tech/scripts] link

Thu, 12 Feb 2004 - Timezone Trickiness Argh! Managed to get myself confused by the international date line again and just woke up at 4am on the wrong day for a conference call. Dialled in, and ended up on a conference call I probably should attend anyway. Normally I try to restrict myself to no more than 2 calls at silly times of the night, and I already had one this week a couple of days ago. Guess I'll be up tommorow morning too :-(

[/work/misc] link