With apologies to Neil Young

$live="Want to"; $give="Want to";
$miner="yes";
if ($expressionsgiven==0) {
    keep_searching;
}

$beentohollywood="yes";
$beetoredwood="yes";
$crossedocean="yes";
if ($beentohollywood || $beentoredwood && $crossedocean) {
    if ("It's such a fine line") {
        keep_searching;
    }
}

sub keep_searching {
    $giveexpressions="never";
    $searching="yes";
    $age++;
    print "And I'm getting old.\n";
}

print "Still mining\n";

[download]


############################################
print "Just another iconoclastic Perl hacker";

Replies are listed 'Best First'.
Re: Heart of gold
by yosefm (Friar) on Apr 13, 2004 at 09:16 UTC
    Nice, but more underscores in var names wil make it more readable. $been_to_holywood. Unless you wanted unreadability as a poetic tool, but I don't think you did. Did you? 
    perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\

for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'

    [download]
    My public key
[reply]
[d/l]
      No, I didn't. Don't worry though, my next one will be
      somewhat better.

      print "Just another iconoclastic Perl hacker";
[reply]
Re: Heart of gold
by limburgher (Initiate) on Apr 11, 2004 at 01:55 UTC
    Good lord. How. . .? Wha. . .? <sigh> Still, good work.
[reply]
      What do you mean?

      print "Just another iconoclastic Perl hacker";
[reply]

Back to Perl Poetry