Re: Making code less fun to read

#!/usr/bin/perl length q bless glob and print chr ord uc q chr uc and print chr ord q each le and print chr ord q split s and print chr ord q open do and print chr ord q my alarm and print chr ord qq q q and print chr oct ord qw q for q and print chr ord q sin s and print chr ord q or no and print chr ord q lt eval and print chr ord q chr uc and print chr ord qw q die q and print chr ord q each le and print chr ord q my alarm and print chr ord q q q and print chr ord qw q for q and print chr ord q local and print chr ord q or no and print chr ord q q eq and print chr ord q my m and print chr ord q ne sin and print chr ord q msgctl m and print chr ord q stat s and print chr ord q ne sin and print chr ord q or no and print chr ord qw q dump q and print chr ord q map m and print chr ord q my alarm and print chr oct oct ord uc qw q fork q and print chr ord q q eq and print chr ord uc q each ne and print chr ord qw q not q and print chr ord qw q die q and print chr ord qq q q and print chr oct ord q pop and print chr oct oct oct ord uc qw q glob q and print chr ord q cmp lc and print chr ord q q q and print chr oct oct ord uc qw q m q and print chr hex ord q m alarm and print chr ord qq q q and print chr ord q lt eval and print chr ord q local and print chr ord qw q dump q and print chr ord q map m and print chr ord q my alarm and print chr hex length q q bless localtime ref q and print chr length q binmode glob

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: Making code less fun to read

Replies are listed 'Best First'.
Re^2: Making code less fun to read by Grimy (Pilgrim) on Jun 01, 2012 at 19:39 UTC
${\&Internals::SvREADONLY(\!\$!,!\!$!)}='Happy birthday to both of you :)'; print!%!	[reply]
Re^2: Making code less fun to read by thomas895 (Deacon) on Jun 01, 2012 at 21:51 UTC
Thank you and congratulations to you as well! :-) ~Thomas~ `bless( $you ) if $you->{sneezed};`	[reply] [d/l]
Re^2: Making code less fun to read by Anonymous Monk on Jun 25, 2015 at 11:25 UTC
print qx q cat q and print qq q q xor not exp log srand and print qw q fork q xor (exp log srand)?print qx q cat q:print xor not exp log srand xor s qq qx xor s x x length uc ord and print chr ord for qw q get ord oct data qx xor eval xor print qq q q xor int eval lc q m cos and print chr ord for qw y join open break y m xor scalar srand print qq q q xor int eval lc qq y sqrt cos and print chr ord for qw x vec set fork int x y or eval xor print qq q q xor eval q s undef or oct xor print chr int ord lc foreach qw y get undef eof \s time y s gt sin sort split	[reply]