Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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]
[1nickt]: chacham I have wanted to, and dones so, and so stated in a reply, and been roundly downvoted 2-1. (I assume for attempting to censor.)
[1nickt]: pryrt yes, I see. There is no way to differentiate without forcing to a string and all sort of weird stuff. It is enough. User 42 can get creative if s/he wishes.
[chacham]: i sent him a private message expressing my displeasure.
[1nickt]: chacham It was worse than 2-1 ! almost 4-1 !
[jdporter]: Dang. No good example of how to use IPC::Run's run() in its simplest mode?
[LanX]: him or her! ;)

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (17)
As of 2017-05-24 20:52 GMT
Find Nodes?
    Voting Booth?