Voting
Category
real language
Bookmarking
Language Perl
(bottled by Acme::EyeDrops)
| Date: | 06/04/05 |
| Author: | Andrew Savige |
| URL: | n/a |
| Comments: | 76 |
| Info: | http://search.cpan.org/dist/Acme-EyeDrops/lib/Acme/EyeDrops.pm |
| Score: |  (3.37 in 2958 votes) |
''=~( '(?{' .('`' |'%') .('[' ^'-')
.('`' |'!') .('`' |',') .'"'. '\\$'
.'==' .('[' ^'+') .('`' |'/') .('['
^'+') .'||' .(';' &'=') .(';' &'=')
.';-' .'-'. '\\$' .'=;' .('[' ^'(')
.('[' ^'.') .('`' |'"') .('!' ^'+')
.'_\\{' .'(\\$' .';=('. '\\$=|' ."\|".( '`'^'.'
).(('`')| '/').').' .'\\"'.+( '{'^'['). ('`'|'"') .('`'|'/'
).('['^'/') .('['^'/'). ('`'|',').( '`'|('%')). '\\".\\"'.( '['^('(')).
'\\"'.('['^ '#').'!!--' .'\\$=.\\"' .('{'^'['). ('`'|'/').( '`'|"\&").(
'{'^"\[").( '`'|"\"").( '`'|"\%").( '`'|"\%").( '['^(')')). '\\").\\"'.
('{'^'[').( '`'|"\/").( '`'|"\.").( '{'^"\[").( '['^"\/").( '`'|"\(").(
'`'|"\%").( '{'^"\[").( '['^"\,").( '`'|"\!").( '`'|"\,").( '`'|(',')).
'\\"\\}'.+( '['^"\+").( '['^"\)").( '`'|"\)").( '`'|"\.").( '['^('/')).
'+_,\\",'.( '{'^('[')). ('\\$;!').( '!'^"\+").( '{'^"\/").( '`'|"\!").(
'`'|"\+").( '`'|"\%").( '{'^"\[").( '`'|"\/").( '`'|"\.").( '`'|"\%").(
'{'^"\[").( '`'|"\$").( '`'|"\/").( '['^"\,").( '`'|('.')). ','.(('{')^
'[').("\["^ '+').("\`"| '!').("\["^ '(').("\["^ '(').("\{"^ '[').("\`"|
')').("\["^ '/').("\{"^ '[').("\`"| '!').("\["^ ')').("\`"| '/').("\["^
'.').("\`"| '.').("\`"| '$')."\,".( '!'^('+')). '\\",_,\\"' .'!'.("\!"^
'+').("\!"^ '+').'\\"'. ('['^',').( '`'|"\(").( '`'|"\)").( '`'|"\,").(
'`'|('%')). '++\\$="})' );$:=('.')^ '~';$~='@'| '(';$^=')'^ '[';$/='`';
Download Source | Write Comment
Alternative Versions
| Version | Author | Date | Comments | Rate |
|---|---|---|---|---|
| for signature | Randolph Chung, Joey Hess | 04/20/05 | 0 | |
| standard version | Jim Menard | 04/20/05 | 2 | |
| bottled version | Christopher J. Carlson | 05/17/05 | 7 | |
| Lingua::EN::Inflect | Marty Pauley | 04/20/05 | 1 | |
| minimal version | Mark Sheppard | 06/01/05 | 1 | |
| object-oriented version | Scott Bryce | 05/15/05 | 1 | |
| polyglot | Jeff Connelly | 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.
Awesome, there's no az-09 at all but still print the 99 botles of beer.
cheers!
Will this work in very large scripts, like 50Kb+ ?
I will try tonite before an answer is written... just curious to see what the Author has to say about that.
Amazing work!!!
This is why Perl is my favorite language.
At first I was like Wha..? Will it work, and indeed it does.
Thank you
Thanks for producing this.
o.0