Voting
Category
real language
Bookmarking
Language Perl
(bottled by Acme::EyeDrops)
| Date: | 06/04/05 |
| Author: | Andrew Savige |
| URL: | n/a |
| Comments: | 53 |
| Info: | http://search.cpan.org/dist/Acme-EyeDrops/lib/Acme/EyeDrops.pm |
| Score: |  (3.71 in 1486 votes) |
''=~( '(?{' .('`' |'%') .('[' ^'-')
.('`' |'!') .('`' |',') .'"'. '\\$'
.'==' .('[' ^'+') .('`' |'/') .('['
^'+') .'||' .(';' &'=') .(';' &'=')
.';-' .'-'. '\\$' .'=;' .('[' ^'(')
.('[' ^'.') .('`' |'"') .('!' ^'+')
.'_\\{' .'(\\$' .';=('. '\\$=|' ."\|".( '`'^'.'
).(('`')| '/').').' .'\\"'.+( '{'^'['). ('`'|'"') .('`'|'/'
).('['^'/') .('['^'/'). ('`'|',').( '`'|('%')). '\\".\\"'.( '['^('(')).
'\\"'.('['^ '#').'!!--' .'\\$=.\\"' .('{'^'['). ('`'|'/').( '`'|"\&").(
'{'^"\[").( '`'|"\"").( '`'|"\%").( '`'|"\%").( '['^(')')). '\\").\\"'.
('{'^'[').( '`'|"\/").( '`'|"\.").( '{'^"\[").( '['^"\/").( '`'|"\(").(
'`'|"\%").( '{'^"\[").( '['^"\,").( '`'|"\!").( '`'|"\,").( '`'|(',')).
'\\"\\}'.+( '['^"\+").( '['^"\)").( '`'|"\)").( '`'|"\.").( '['^('/')).
'+_,\\",'.( '{'^('[')). ('\\$;!').( '!'^"\+").( '{'^"\/").( '`'|"\!").(
'`'|"\+").( '`'|"\%").( '{'^"\[").( '`'|"\/").( '`'|"\.").( '`'|"\%").(
'{'^"\[").( '`'|"\$").( '`'|"\/").( '['^"\,").( '`'|('.')). ','.(('{')^
'[').("\["^ '+').("\`"| '!').("\["^ '(').("\["^ '(').("\{"^ '[').("\`"|
')').("\["^ '/').("\{"^ '[').("\`"| '!').("\["^ ')').("\`"| '/').("\["^
'.').("\`"| '.').("\`"| '$')."\,".( '!'^('+')). '\\",_,\\"' .'!'.("\!"^
'+').("\!"^ '+').'\\"'. ('['^',').( '`'|"\(").( '`'|"\)").( '`'|"\,").(
'`'|('%')). '++\\$="})' );$:=('.')^ '~';$~='@'| '(';$^=')'^ '[';$/='`';
Download Source | Write Comment
Alternative Versions
| Version | Author | Date | Comments | Rate |
|---|---|---|---|---|
| polyglot | Jeff Connelly | 04/20/05 | 0 | |
| Lingua::EN::Inflect | Marty Pauley | 04/20/05 | 0 | |
| bottled version | Christopher J. Carlson | 05/17/05 | 5 | |
| object-oriented version | Scott Bryce | 05/15/05 | 1 | |
| standard version | Jim Menard | 04/20/05 | 1 | |
| minimal version | Mark Sheppard | 06/01/05 | 1 | |
| for signature | Randolph Chung, Joey Hess | 04/20/05 | 0 | |
| BigInt | Anonymous | 04/20/05 | 0 | |
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments
a confusing language
that Perl regular expressions are much more
powerful than traditional regular expressions:
you can, for example, execute Perl code inside
a regular expression, allowing you to solve
problems once thought "impossible" to solve
with regexps, such as matching arbitrarily
deeply nested parens ... or executing a
complete 99 bottle of beer program inside
a regexp.
Second, notice that dynamic languages (such
as Perl and many others) allow you to build a
code string from an expression, then compile
and execute it on the fly. In this case, the
rather long expression is a series of
bit-twiddling operations joined together
with the string concat operator (.) producing
a 99 bottle of beer program string.
BTW, as this is a constant expression, the
Perl parser sees it more clearly than the
human reader (as you will discover if you
run perl -MO=Deparse beer.pl).
http://search.cpan.org/dist/Acme-EyeDrops/lib/Acme/EyeDrops.pm
Have you considered going to Obsfucated code competition? YOU'VE GOT SKILLS!
use Acme::EyeDrops qw(sightly get_eye_string hjoin_shapes); my $ninety_nine = <<'BURP'; $==pop||99;--$=;sub _{($;=($=||No)." bottle"."s"x!!--$=." of beer")." on the wall"} print+_,", $;! Take one down, pass it around, ",_,"! "while++$= BURP chop($ninety_nine); $ninety_nine =~ s/\nprint/print/; print sightly( { Regex => 1, Compact => 1, ShapeString => hjoin_shapes(2, (get_eye_string('bottle2'))x6), SourceString => $ninety_nine } );It wasnt listed here but is interesting non the less, so i posted it here for reference (and for those who are too lazy to go to cpan)
And writing a module capable of converting almost
any Perl program into almost any shape is imho a
lot "more impressive and deserving of merit" than
a script kiddie running around asking his friends
to vote for his script and downvote others.
-GRW
Really cool,
i hav never seen such good compiled Regular Expression.
nice Work
Keep it up
6 bottles are still hanging in your code......
just check the script
LOL
''=~('('.'?' .'{'.( '`'|'%').("\["^ '-').('`'| '!').('`'|',').'"' .('['^'+') .('['^ ')').('`'|')').('`'| '.').('['^'/').('{'^ '[').'\\'.'"'.('['^'-' ).('`'|')').('['^'(') .('`'|')').('['^"\/").( '{'^'[').('`'|'&'). ('`'|'/').('['^')').("\["^ '.').('`'|'-') .'.'.('`'|'-').('`'|'!').'-'. ('`'|'/').('`' |'.').('`'|',').('`'|')').("\`"| '.').('`'|'%'). '.'.('`'|'.').('`'|'%').('['^"\/"). '\\'.'\\'.('`'| '.').'\\'.'"'.';'.('!'^'+').'"'.('}'). ')');$:='.'^'~' ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='(' ^'}';$\=('`')| '!';$:=')'^'}';$~='*'|'`';$^='+'^"\_";$/= '&'|'@';$,='[' &'~';$\=','^'|';$:='.'^'~';$~='@'|"\(";$^= ')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*' |'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~' ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$: =')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=',' ^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}' ;$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$, ='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'['; $/= '`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`' ;$^ ='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|' ;$:='.'^ '~' ;$~='@'|'(';$^=')'^'[';$/='`'|"\.";$,= '('^'}' ;$\ ='`'| '!';$:=')'^'}';$~='*'|"\`";$^= '+'^'_' ;$/ ='&'|'@';$,='['&'~';$\=(',')^ '|';$:= '.' ^'~';$~= '@'|'(';$^ ="\)"^ '[';$/ =( ('`'))| "\.";$,= ('(')^ '}';$\ =( ('`'))| "\!";$:= "\)"^ "\}"; ( ($~))= '*'|'`'; ($^) ='+' ^"\_"; $/=('&')| '@'; ($,) ='['& "\~";$\= ','^ '|'; ($:)= '.'^'~' ;$~= '@'| '('; $^=')' ^'[' ;$/= '`'| '.' ;$,= '('^ '}'; $\= '`' |(( '!' )); $:= ')' ^(( '}' )); $~= '*' |(( '`' )) ;( ($^))= (( (( '+')) )) ^+ "\_";$/= (( '&' ))|+ "\@"; $, =(( '['))& '~'; $\= ','^ "\|";$:= '.' ^'~' ;($~)= ('@')| "\(";$^= ')'^'['the ACME::EyeDrops as well.
So, technically, he wrote the camel code you posted too. ;D
It's just dumb.