Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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.

    CountZero

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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2015-07-03 16:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (54 votes), past polls