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

My Sexy Intern

by BillC (Novice)
on Dec 13, 2004 at 07:54 UTC ( #414330=poem: print w/ replies, xml ) Need Help??

s,mooth,,sex,y!!! for@play; twang thong while squeeze buttock and glob melons; chomp my $chopper if 0xDeadBeef =~ pop @up; unpack my $sack, sqrt! sqrt! sqrt! my $load until flat bag and int ern's dress creamy

Passes perl -c. After that, all bets are off. :-)

Considered by jdporter: "Do you find this node excessively distasteful and offensive? I do. Plese vote 'delete'." Vote tally after two days (keep/edit/delete): 10/1/10.
Unconsidered by davido: Rep. and keep votes blocked reaping.

Comment on My Sexy Intern
Download Code
Re: My Sexy Intern
by DaWolf (Curate) on Dec 13, 2004 at 09:33 UTC
Re: My Sexy Intern
by zentara (Archbishop) on Dec 13, 2004 at 13:19 UTC
    It ought to be in an if statement:
    if( $name !~ /^Monica/){.......}

    I'm not really a human, but I play one on earth. flash japh
Re: My Sexy Intern
by Euclid (Sexton) on Dec 13, 2004 at 23:32 UTC

    When I run this poem using ActiveState Perl 5.8 I get the following error:

    perl monica.pl Can't locate object method "squeeze" via package "buttock" (perhaps yo +u forgot to load "buttock"?) at monica.pl line 2.

    However, the -c option assures me that all is well!

    perl -c monica.pl monica.pl syntax OK

      As much as I enjoyed this error message, I can't claim credit for it; I only ever tested with perl -c. Looks like the (dreaded) indirect object notation. Running:

      perl -MO=Deparse monica.pl
      produces:
      ; foreach $_ (@play) { s/mooth/();/sex, tr///; } use File::Glob (); 'thong'->twang while 'buttock'->squeeze and glob('melons'); chomp my($chopper) if 3735928559 =~ pop(@up); unpack my $sack, sqrt !sqrt(not sqrt !my $load) until 'bag'->flat and +int 'dress'->ern::s('creamy');

      Anyway, here's a version that actually runs:

      package thong; sub twang { print "twang-thong\n" } package buttock; sub squeeze { print "squeeze-buttock\n" } package bag; sub flat { print "flat-bag\n" } package ern; sub s { print "intern's\n" } package creamy; sub dress { print "dress-creamy\n" } package main; s,mooth,,sex,y!!! for@play; twang thong while squeeze buttock and glob melons; chomp my $chopper if 0xDeadBeef =~ pop @up; unpack my $sack, sqrt! sqrt! sqrt! my $load until flat bag and int ern's dress creamy

Re: My Sexy Intern
by BillC (Novice) on Dec 21, 2004 at 08:04 UTC

    I had no idea how people would react to this smutty poem. Which was part of the fun. I'd like to apologize to jdporter and others who were offended by it.

    In my defense, I'd like to point out that one of the first Perl poems ever written, Black Perl, was presented in The Camel "without comment, merely to show how disgusting the metaphors of a typical programming language really are". Should such debauchery as:

    kill the next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say"). do it(*everyone***must***participate***in***forbidden**s*e*x*).
    take the blame for encouraging poor taste in Perl poets that follow? Or is this sort of unfortunate verse inevitable in a language with built-ins: sin, kill, die, chop, crypt, ... and so on?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (20)
As of 2014-07-29 13:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (217 votes), past polls