Skip to content

Instantly share code, notes, and snippets.

@creaktive
Created January 15, 2011 20:59
Show Gist options
  • Save creaktive/781249 to your computer and use it in GitHub Desktop.
Save creaktive/781249 to your computer and use it in GitHub Desktop.
Perl troll face
print (('F' x 1000) . ('U' x 900) . ('!' x 20) . "\n");
#!/usr/bin/perl
use strict;
use warnings 'all';
use utf8;
use Acme::EyeDrops qw(sightly);
#convert -sample 54x24! -colors 2 trollface.png trollface.xpm; tail -n +8 trollface.xpm | tr '. ' ' #' > trollface.pl
my $trollface = <<'TROLLFACE';
###################### ########
########################## ### ######
#################### ########### ## ####
############# ################### # ######
######## ############ # ##########
## # ###### ## ## ###
# # ############# ###### ##### ####### ##
## # # # #### ################ #### ### ####
## ### ######## ######## ############ ### ###
#### ##### ####### ## ######## #### ### ###
### ####### # ####### ## ### ### ##### #
### # ######## ##### # #######
### # ## ### #### ###### # ## #######
## #### #######
### #### ##### ########
#### # ## # ##### ###### # #########
##### ## # ## #### ##### #### #####
########## ###### ### ##
###### ################### ### ###
#### ################## #####
#########################
##################
TROLLFACE
print sightly({
ShapeString => $trollface,
SourceFile => 'fu.pl',
});
#!/usr/bin/perl
eval eval '"'.
('['^'+').('['^"\)").( '`'|')')
.('`'|'.').('['^'/').('{'^ '[' ).'('.
'('."'".('`'^('&')). "'".(('{')^ (( '[')
)).('['^'#'). ('{'^'[').('^'^('`' | '/')).
(('^')^( '`'|"\.")).( ( '^')^('`'|
(( ( '.'))) )) .( '^'
^ ( '`'|'.')).')' .('{'^ '['). ('.').( ((
(( ( ( ( '{') ))))))^'[').'('. "'". ((( '{')
)^ '.' )."\'".( '{'^'[') .('['^'#').( '{' ^((
'[') )).+( ';'&'=' ). (('^')^( '`'| '.' )).
((( '^'))^( ( ('`'))| (( '.' ))) ).')' .
((( ( "\{")))^ '['). ( "\.").(
'{' ^ (( '[' ))). ('('). ( (( "'"))).
(( '!') )."'".(
'{' ^'[' ).''. ('['^'#'
).+( ( (( ( '{')) ))^'[' ) .(('^')^(
"\`"| (( ( (( ',') ))))) ).+( '^'^(
'`'|'.')). "\)".( '{' ^+
"\["). '.'.('{'^'[').'\\'. '"' .((
'\\' )).'\\'.('`'|'.'). '\\'.
'"'.')'.';'.('!'^'+').'"'
;$:='.'^'~';$~='@'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment