develooper Front page | perl.fwp | Postings from November 2001

Re: Photos/Caricatures of Larry Wall and other Perl luminaries

Thread Previous | Thread Next
From:
Andrew.Savige
Date:
November 10, 2001 19:29
Subject:
Re: Photos/Caricatures of Larry Wall and other Perl luminaries
Message ID:
694BB7191495D51183A9005004C0B05408DF5A@ir-exchange-srv.ir.com.au
Ryan King wrote:
> Well, tonight I made a caricature version, only to find out that
> I missed the boat by one "while": He already got a picture.
> Crab suggested that I send it anyway, so here it is:

Who is Crab? Anyway, I'd like to thank him because you haven't
missed the boat. I have included your excellent caricature as
shape 'larry2' in Acme::EyeDrops-1.01 which I just uploaded
to CPAN. I called it 'larry2' to allow for more contributions;
who knows, we might get all the way up to 'larry10' :-).

(I took the liberty of removing the 3 lines at the bottom
and left justifying, to make it the same format as the other
EyeDrops shapes).

Extract from the new EyeDrops 1.01 man page:

 If you sincerely idolize Larry, you might put a picture frame
 around him:
 
     print sightly( { Shape       => 'larry2',
                      BorderGap   => 3,
                      BorderWidth => 2,
                      SourceFile  => 'helloworld.pl',
                      Regex       => 1 } );
 
 where the shape `larry2' is a caricature contributed by Ryan King:
 
  ''=~('('.'?'.'{'.('`'|'%').('['^'-').('`'|'!').("\`"|
  ',').'"'.('['^'+').('['^')').('`'|')').('`'|'.').('['
  ^+                                                 ((
  ((                                                 ((
  ((                                                 ((
  ((                 '/')))))))))))                  ))
  .(             '{'^'[').'\\'.'"'.('`'              |+
  ((            '('))).('`'|'%').('`'|','            ).
  +(          '`'|(',')).( '`'|'/'). ('{'^           ((
  ((         '['))))).('['  ^',').(  ((  '`'         ))
  |+        '/' ).('['^')') .("\`"|  (    ','        ))
  .(       '`' |"\$").'\\'.  '\\'.  (      '`'       |+
  ((       '.' ))).('\\').   '"'.  (        ((       ((
  ((      ';') )))))).''.   ('!'             ^       ((
  ((     '+'))) )). '"'    . (             ((        ((
  ((    '}')))))) )      . (    (    (     ((        ((
  ((    ')')))))) ))));    $:='.'^'~';$~=('@')|      ((
  ((    '(')))); $^  ="\)"^      (( ((    (  ((      ((
  ((     '[')))))     )))         ) )     )   ;(     $/
  )=    '`'|'.';       $_       = ( ( (    (  ((     ((
  ((     '('))))       ))         ) )      )  )^     ((
  ((      '}')))        );       $,  =(     '`'      )|
  ((       "\!"));  (    $\)=')'^     '}'; $:        =(
  ((        '.')))^ (        '~'); ($~)= ( ((        ((
  ((         '@'))))))      )|"\(";  $^=')'^'['      ;(
  $/           )="\`"|   '.';$_='('   ^'}';$,='`'    |+
  ((            '!')) ; $\=(')')^        (  "\}");   $:
  =(                (  '.'))      ^'~'     ;  ($~)   =(
  ((              ( (   '@'               )    )))   )|
  ((           '(' )    );  (            (     $^    ))
  =(         ((  (       (    "\)")))))^       (     ((
  ((      '['     ))           )                     ))
  ;(     (         $/           ))                   =(
  ((   (             ((        (   (                 ((
  ((                   '`')))))     )                ))
  ))                                                 ))
  |+                                                 ((
  ((                                                 ((
  '.'))))));$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~'
  ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,="\`";
 
Andrew.

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About