RE: RE: RE: RE: I am a M/F/Other (take two)

in reply to RE: RE: RE: I am a M/F/Other (take two)
in thread I am a M/F/Other (take two)

I think that more women would be attracted to Perl if it had more "pink" functions (the name "perl" is certainly a good start). I recommended some changes in perl6 to make perl more "feminine":

instead of chomp(), use chew_lightly()
chop()=>slice()
sort()=>organize()
sleep()=>beauty_sleep() with umask()
sin()=>naughty()
push(),pop()=>slide_on(),etc. (these functions are often misinterpreted by women as come-ons)
no=>no (this keyword is often misinterpreted by men)
kill()=>sigqueue() (I have POSIX backing on this one!)
fork()=>spoon()
use=>request_one_nighter
truncate()=>spank()
split()=>divorce()

Hopefully, my additions will be considered and incorporated in future releases of perl. I can only see them as beneficial to the Perl experience as a whole.

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.

Comment on RE: RE: RE: RE: I am a M/F/Other (take two)

Replies are listed 'Best First'.
RE: RE: RE: RE: RE: I am a M/F/Other (take two) by extremely (Priest) on Nov 07, 2000 at 15:10 UTC
Hmm. Gotta take issue with some of these: chomp() => nuzzle() chop() => shop() sort() => neat() use => commit do => makelove import => (no-op, it's the default) bind => ring socket => XXXXXXX # censored... connect => # no change, it perfect truncate() => spring_clean() split() => willbeback() dump() => letsbefriends() pack() => luggage() unpack() => three_days() # oo that one might be bitterness talking. no => NO package() => wrap() require() => longing() length() => XXXXXXXX() # censored... study() => stalk() # it never helps... each() => together() getppid() => rabbittest() #ewww pipe() => thingy() wait() => hurry() return() => comeback() formline() => slimming() Other notes: If getpeername returns "bitch", accept() and listen() will both fail. Also, log() and sin() can't be used together. our() and my() both mean my(). The "Threads" keyword for commit has been changed to "Outfits". lock() becomes snap() when perl is compiled for "Outfits". If I'm going to hell for this, at least I'm in good company. -- $you = new YOU; honk() if $you->love(perl)	[reply]

Replies are listed 'Best First'.

RE: RE: RE: RE: RE: I am a M/F/Other (take two)
by extremely (Priest) on Nov 07, 2000 at 15:10 UTC

chomp() => nuzzle()
chop() => shop()
sort() => neat()
use => commit
do => makelove
import => (no-op, it's the default)
bind => ring
socket => XXXXXXX # censored...
connect => # no change, it perfect
truncate() => spring_clean()
split() => willbeback()
dump() => letsbefriends()
pack() => luggage()
unpack() => three_days() # oo that one might be bitterness talking.
no => NO
package() => wrap()
require() => longing()
length() => XXXXXXXX() # censored...
study() => stalk() # it never helps...
each() => together()
getppid() => rabbittest() #ewww
pipe() => thingy()
wait() => hurry()
return() => comeback()
formline() => slimming()

Other notes: If getpeername returns "bitch", accept() and listen() will both fail. Also, log() and sin() can't be used together. our() and my() both mean my().

The "Threads" keyword for commit has been changed to "Outfits". lock() becomes snap() when perl is compiled for "Outfits".

If I'm going to hell for this, at least I'm in good company.

--
$you = new YOU;
honk() if $you->love(perl)

[reply]

In Section Past Polls