Another
grook (sorry, I can't restrain myself...)
quite relevant I think, though it's not obfuscated itself...
$you_know_what_I_mean = <<GROOK;
IF YOU KNOW WHAT I MEAN
(by Piet Hein, from Grooks, 1966)
(translated into Perl by Osfameron - hakim\@earthling.net)
A poet should be of the
old-fashioned meaningless brand;
obscure, esoteric, symbolic, -
the critics demand it;
so if there's a poem of mine
that you do understand
I'll gladly explain what it means
till you don't understand it.
GROOK
$obfuscator =
$poet{"old-fashioned meaningless brand"} = {
obscure => 1,
esoteric=> 1,
symbolic=> 1
};
push my @poems, {
poem => __FILE__,
understood => 0,
};
if (critics_accept($obfuscator)) {
for $poem (@poems) {
while (understand($poem)) { explain ($poem, 'gladly') }
$you_actually_know_what_I_mean++ if understand($poem);
}
print $you_know_what_I_mean unless $you_actually_know_what_I_mean;
}
sub critics_accept { $poet = shift;
( $poet->{obscure}
and $poet->{esoteric}
and $poet->{symbolic})
}
sub understand { (shift)->{understood} }
sub explain { (shift)->{understood}-- }
Cheerio!
Osfameron