Re: ASCII art from sourcecode as image

On Wednesday, July 16, 2003 at 9:07:44 AM UTC+1, Harry Mason wrote:
> Erik Itter wrote:
> > I have seen both linux source codes and some scripts for my company rendered
> > as images - reads formated with extra blanks line feeds etc. to look like
> > some image if displayed using small enough letters. (without
> > inserting/deleting anything changing the source from the compilers point of
> > view)
For perl there is Acme::EyeDrops. It doesn't just format the program, it
obfuscates it too.

-- 8< -- cut here -- >8 --
#!/usr/bin/perl -w
eval eval '"'.


                                        ('#').
                                       '!'.'/' .('['
           ^'.' )                  .('['^'('). ("\["^
       ')')."\/".(               '`'|'"').('`'| ')').(
  '`'|'.')  .'/'. (             '['^'+').('`'|'%').('['
^')').('`'|',').('{'           ^'[').'-'.('['^',').('!'
^'+').('['^'.').('['^        '(').('`'|'%').('{'^('[')).(
 '['^'(').('['^'/').(     '['^')').('`'|')').('`'|'#').("\["^
            ('/')).       ';'.('!'^'+').('['^'+').('['^"\)").(
      '`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'|'(').(
      '`'|'%').('`'|',').('`'|',').('`'|'/').','.('{'^'[').('['^','
     ).('`'|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|"\.").
      '\\'.'"'.';'.('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/=
      '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';
      $^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^
     '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|('!');$\=
      ')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';
        $,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[' ;($/)=
         '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';   ($~)=
           '@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,=('`')|   "\!";
             $\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/=   '`'|
               ((   '.'));$_='('^'}';$,='`'|"\!";$\= ')'^'}';  ($:)
                    ='.'^"\~";  $~='@'|'(' ;$^=')'^   '[';$/=  '`'
                    |('.');$_=  '('^'}';$, ='`'|'!'    ;$\=')' ^+
                     "\}";$:=   '.'^'~';$~  =('@')|     '(';$^
                     =')'^'['  ;$/=('`')|   '.';$_=      "\("^
                     '}';$,=   '`'|'!';$\    ="\)"^      '}';$:
                     =('.')^   "\~";$~=      ('@')|       "\(";
                     $^=')'    ^"\[";       $/='`'        |'.';
                      ($_)=     ('(')^     '}';$,         ='`'|
                      "\!";      $\=')'^  '}';$:          ='.'
                      ^'~';         $~='@'|'('            ;$^=
                      ')'^           "\[";$/=             '`'|
                      '.';            $_=('(')^           '}';
                     ($,)            ='`'|'!';$\         =')'^
                    "\}";         $:='.'^'~';$~=         ('@')|
                    "\(";        $^="\)"^  '[';         $/='`'|
                  '.';$_=                              '('^'}';
                $,="\`"|                                '!';#;
-- 8< -- cut here -- >8 --

-- 
|  Harry Mason  | .------------. |    .___,    |"Whatever you do will be |
| University of | |  hjm200 @  | | ___('v')___ | insignificant. However, |
|  Southampton  | | zepler.net | | `"-\._./-"' | it is vitally important |
|    England    | '------------' | hjm ^ ^     | that you do it." Gandhi |
----------------------------------------------------------------------------------------------------------------
Hi ...
Thats an interesting piece of art
i dont have perl installed and i'd be curious to know what its output
looks like

colin
-- 
    .
  ._!__  __ __
    / _\/_ |_ \!_
   / /    7 / /|
   \ \_ _/ /  \ .
    \_//__/|_\_\!_.
                |