Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Isn't this the truth?

by atcroft (Monsignor)
on Mar 29, 2004 at 07:56 UTC ( #340536=poem: print w/ replies, xml ) Need Help??

A harsh lesson, so your discression is advised.

#!/usr/bin/perl # # Isn't this the truth? # # Being a slack, not verifying things no strict; no warnings; my $action = 'assume something important'; my $outcome = $action . ' as applied'; # And at the worst possible time # You learn what $outcome =~ s/^((.{3})(.)(.{2})).+/\u$1 made an/; # the $outcome of $outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$2\E out of/; # your $action $outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$3\E and \U$4\E/; # is... print $outcome, "\n";

Comment on Isn't this the truth?
Download Code
Re: Isn't this the truth?
by CountZero (Bishop) on Mar 29, 2004 at 18:45 UTC
    It sure is!

    Really, this should be in a category all of its own: Obfuscated Poetry.


    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://340536]
Approved by Limbic~Region
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-12-29 08:07 GMT
Find Nodes?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?

    Results (185 votes), past polls