sub scopeOut {

   my $woman = shift;
   my $beer = 2; #Min. required for approach()

   while ($woman->{'width'} >> $woman->{'height'}) {
      $beer++;
      blur(vision());
   }

   approach($woman);

}

[download]

Replies are listed 'Best First'.
Re: Reality
by simonm (Vicar) on Oct 02, 2003 at 20:22 UTC
    As I've said before, I find this kind of joke, about how much one has to drink in order to be attracted to fat women, to be puerile and offensive; sadly, I've already used up today's votes...

    More specifically, while it's not clear what units the poster is thinking in, the use of the >> bit-shift operator suggests that he's only going to go through the loop once or twice, after which he'll be left with a beanpole. (And perhaps a citation for under-age drinking, as he sounds like he's about fifteen years old...)

    I would hope the author would learn more about Perl, and about women, before again foisting his unwanted efforts upon others.

[reply]

      Most probably the >> meant "much bigger than" and not a bit-shift, Mr. Politicaly Correct.

      P.S.: I'd drop dead of alcohol poisoning long before I could get drunk enough to be attracted to your average american woman.

      Jenda
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
         -- Rick Osborne

      Edit by castaway: Closed small tag in signature

[reply]
[d/l]
Re: Reality
by yosefm (Friar) on Oct 05, 2003 at 19:20 UTC
[reply]
Re: Reality
by zentara (Cardinal) on Oct 03, 2003 at 17:10 UTC
    Shouln't you be feeding the beers to the woman? Got to get her loose first, that's Reality. :-)
[reply]

Back to Perl Poetry