Camel code 3/7

(F)actual code

The actual code looks like this:

$_ = '...camel top...';     # define the code
s/\s*//g;                   # tidy it
eval;                       # run it

eval("seek\040DATA,0,0;");  # go to the start of the file
undef $/; $_ = <DATA>;      # slurp the whole file
s/\s*//g;                   # remove blanks
s;^.*_;;;                   # remove everything up to __DATA__ (included)
map { eval "print\"$_\""; } # convert octal and print
    /.{4}/g;                # the octal characters after __DATA__
__DATA__
lots of octal codes
intermixed with whitespace

The code in $_ is cleaned up of all whitespace and eval'ed.
More on this in the following slides.
The end of the file is composed of octal escapes of the characters composing the usual disclaimer: "The use of a camel image in association with Perl is a trademark of O'Reilly & Associates, Inc. Used with permission."
The map statement simply evals a string that prints every character (thanks to the global match).

Previous | Next