Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Oh if it were only that easy...

by jaymoo (Novice)
on Aug 15, 2000 at 03:01 UTC ( #27848=poem: print w/replies, xml ) Need Help??

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
(jeffa) RE: Oh if it were only that easy...
by jeffa (Bishop) on Aug 15, 2000 at 20:28 UTC
    Ok, this is completely tasteless.
    I mean, just look at the way you
    have enclosed your braces.
    For shame.
RE: Oh if it were only that easy...
by johannz (Hermit) on Aug 15, 2000 at 21:44 UTC

    I'm voting this '--' not just because it's sexist, since we all occasionally make an accidentally sexist remark. I'm marking it '--' because it is blatently sexist and goes against the inclusive, accepting environment that I believe we have come to expect here at perlmonks.

    Also, Jaymoo, if you make a mistake on a post, it is better to update it rather then re-enter it.

RE: Oh if it were only that easy...
by LeGo (Chaplain) on Aug 17, 2000 at 00:59 UTC
    The ninth line of code has chick not defined as a scalar. This might cause problems in the Pimp realm. Try:
    {Big::Pimp pimpslap($chick);}
    instead of
    {Big::Pimp pimpslap(chick);}
Re: Oh if it were only that easy...
by Anonymous Monk on Apr 02, 2001 at 04:53 UTC
    Since $chick is a object of class Women, you can just use $chick->issexy instead of Women::issexy($chick). Also, you forgot the :: between Big::Pimp and (kidnap|pimpslap)
    use Big::Pimp; use Women; foreach $chick (@world) { if ($chick->issexy) { Big::Pimp::kidnap($chick); Big::Pimp::pimpslap($chick) until $chick->ismine; } else { next $chick; } }
RE: Oh if it were only that easy...
by Anonymous Monk on Aug 16, 2000 at 17:35 UTC
    i don't know....i bet there are a few out there that might be able to use it... not me of course... :)

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2021-05-18 18:11 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (183 votes). Check out past polls.