What other language would let you do this?
''=~( '(?{' .('`' |'%') .('[' ^'-')
.('`' |'!') .('`' |',') .'"'. '\\$'
.'==' .('[' ^'+') .('`' |'/') .('['
^'+') .'||' .(';' &'=') .(';' &'=')
.';-' .'-'. '\\$' .'=;' .('[' ^'(')
.('[' ^'.') .('`' |'"') .('!' ^'+')
.'_\\{' .'(\\$' .';=('. '\\$=|' ."\|".( '`'^'.'
).(('`')| '/').').' .'\\"'.+( '{'^'['). ('`'|'"') .('`'|'/'
).('['^'/') .('['^'/'). ('`'|',').( '`'|('%')). '\\".\\"'.( '['^('(')).
'\\"'.('['^ '#').'!!--' .'\\$=.\\"' .('{'^'['). ('`'|'/').( '`'|"\&").(
'{'^"\[").( '`'|"\"").( '`'|"\%").( '`'|"\%").( '['^(')')). '\\").\\"'.
('{'^'[').( '`'|"\/").( '`'|"\.").( '{'^"\[").( '['^"\/").( '`'|"\(").(
'`'|"\%").( '{'^"\[").( '['^"\,").( '`'|"\!").( '`'|"\,").( '`'|(',')).
'\\"\\}'.+( '['^"\+").( '['^"\)").( '`'|"\)").( '`'|"\.").( '['^('/')).
'+_,\\",'.( '{'^('[')). ('\\$;!').( '!'^"\+").( '{'^"\/").( '`'|"\!").(
'`'|"\+").( '`'|"\%").( '{'^"\[").( '`'|"\/").( '`'|"\.").( '`'|"\%").(
'{'^"\[").( '`'|"\$").( '`'|"\/").( '['^"\,").( '`'|('.')). ','.(('{')^
'[').("\["^ '+').("\`"| '!').("\["^ '(').("\["^ '(').("\{"^ '[').("\`"|
')').("\["^ '/').("\{"^ '[').("\`"| '!').("\["^ ')').("\`"| '/').("\["^
'.').("\`"| '.').("\`"| '$')."\,".( '!'^('+')). '\\",_,\\"' .'!'.("\!"^
'+').("\!"^ '+').'\\"'. ('['^',').( '`'|"\(").( '`'|"\)").( '`'|"\,").(
'`'|('%')). '++\\$="})' );$:=('.')^ '~';$~='@'| '(';$^=')'^ '[';$/='`';
(from 99 Bottles of Beer).
Yes, this is a valid Perl program! Paste it into a text file and run it – don’t worry, it won’t nuke all your files.
A work of art. A completely and utterly unmaintainable work of art.
Sick.
That is totally sick! I am not a perl fan, but man that rocks!
What comes up? Can we get a screen capture???
You can take any program and paint it into any shape using Acme::Eyedrops from the CPAN. So, this wasn’t that hard to do, once someone had already done the hard part. 🙂
I can’t believe that works.
This is impressive, in a sick sort of way. There are those who believe that this shows the power of Perl, to which I would have to say: Brainf*** must be a powerful language, too! but I’m not going to use it any time soon (for any serious work, at least…).
This is absolutely nuts. What, did it descend from the seventh heaven on the night of Al-Kadr? Just the sort of excuse I need to run from Perl.
Pingback: Five things to like about Perl « things i learned today
@Jason. You shouldn’t need any further excuse to run from Perl. With Python, Lua, my favourite Ruby, and other languages around, Perl is as obsolete as the floppy disk.