Hello fellow Monks,

Upon learning about the BBSpot's limerick competition, I wrote this short rhyme. I would like to see it turn into an actual obfu, fulfilling the profecy, but I am rather pressed for time right now. So, I would like to extend this challenge to the rest of the Monks. Everyone's submissions are welcome!



There once was an obfu in Perl,
That would twist all great gurus to a knurl.
    Only when run,
    Was the secret undone,
Printing, "JAPH: Hello, World", in a swirl.

[download]

Replies are listed 'Best First'.
Re: Obfu Challenge
by delirium (Chaplain) on Mar 18, 2004 at 12:21 UTC 
    There once was a rhyme about perl,
that made all the curious hurl,
It wasn't so bad, but to be honest, I'm sad
that I'm writing this, not romancing a girl

    [download]
[reply]
[d/l]
Re: Obfu Challenge
by Anonymous Monk on Mar 17, 2004 at 21:47 UTC

    My very cheap effort, quite stupid really lmao:

    $_= do{local $/;<DATA>};print chr(
$1.$2.$3-1)while(/([01])[^\d]{0,}(
[0-8])[\D]*(\d)/gx);
__DATA__
$SIG{ALRM}=sub{system "date"==0 or
die"error #611: $!"};alarm 16;sysread(DATA,
$_, 120 || 10+6) || warn "error #11: $!";die
"error #510" unless length > 9;alarm 0 && 63;
$_ =-s $0 >750?660+810<730?590:330:73*10>2109
?10-9:11+20;eval{alarm 4+5;seek(DATA,0,330);
sysread(DATA,$_,8+8);print chr(1*1+$_)for
split //, $_;}@foo=(21..151);print join('',
map { chr($_) }@foo[0,91,0+10-6,104,81,16,
120,106,11,5,10,90,63]);

    [download]
[reply]
[d/l]
Re: Obfu Challenge
by bageler (Hermit) on Mar 19, 2004 at 19:32 UTC
    ok, my turn! 
    #!/usr/bin/perl
for (qw(lets give this a whirl)) {
        print "limmerick in code\n"
        if length > 'load';
}
exit "excuse me while i go and hurl";

    [download]
    she-bang stroke user bin perl for q w let's give this a whirl print limmerick in code if length greater than load exit excuse me while i go and hurl
[reply]
[d/l]

Back to Perl Poetry