Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Re: doodspeak

by MrNobo1024 (Hermit)
on Sep 15, 2001 at 03:37 UTC ( #112581=note: print w/replies, xml ) Need Help??

in reply to Re: doodspeak
in thread doodspeak

Here's a strict-compliant version:
#!/usr/bin/perl use strict; my %words = ( 'you' => 'joo', 'yay' => 'woot', 'rock' => 'roxor', 'rocked' => 'roxored', 'defeated' => 'roxored', 'beat' => 'roxored', 'hacked' => 'haxored', '!' => '!!!', 'hacker' => 'haxor', 'sucked' => 'suxored', 'suck' => 'suxor', 'elite' => 'leet', 'dude' => 'dood' ); print "Enter your string and press Return\nEnter EXIT to end the progr +am\n"; while(<STDIN>) { chomp; last if $_ eq 'EXIT'; foreach my $word(keys %words) { s/$word/$words{$word}/gi; } tr/OoIiLlEeAaSsTt/00111133445577/; s/s\b/z/g; print $_, "\n"; }

-- MrNobo1024


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://112581]
[ambrus]: Today I accidentally cut my hand while carrying a computer. On the display part of the motherboard that sticks out at the back of the chasis and has ports, there's this thin metal sheet with holes cut for the ports, to guide plugs into the sockets.
[ambrus]: This sheet has sharp needle-like parts, 0.004 long and less than 0.001 wide, that can get bent to point outwards, and one of these cut into my palm when I lifted the box.
[ambrus]: So now when I choose what motherboard to buy for my new home computer, I have one more specific property to guide me. Useful, because there's so many different boards to choose from.

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (10)
As of 2017-01-16 19:36 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (151 votes). Check out past polls.