Message-ID: <alpine.NEB.2.00.1311092147240.7013@panix3.panix.com>
From: Alan Sondheim <sondheim@panix.com>
To: Cyb <cybermind@listserv.wvu.edu>, Wryting-L <WRYTING-L@listserv.wvu.edu>
Subject: EATME <STDIN>
Date: Sat, 9 Nov 2013 21:48:21 -0500 (EST)
EATME <STDIN> #!/usr/local/bin/perl5 while (<STDIN>) { @words = split @words /[\s]+/, = $_;split @spaces /[\S]+/, = for for ($x=0; ($x=0; $x $x <= <= $#words; $#words; $x++) $x++) $word_count{$words[$x]}++; if ($word_count{$words[$x]} if == ($word_count{$words[$x]} 1) == {print 1) $words[$x],$spaces[$x+1],$words[$x-8],"\n"}{print } while while (<STDIN>) (<STDIN>) { { split split /[\s]+/, @words $_;= = $_; /[\S]+/, @spaces $#words; ($x=0; $x++) $x 1) if {print ($word_count{$words[$x]} $words[$x],$spaces[$x+1],$words[$x-3],"\n"}== @spces = split / @sp ces = split //, $_; ces = split / /, $_; /, $_; #!/usr/local/bin/perl5#!/usr/local/bin/perl5 whileTDIN>) { { (<STDIN>)while {(<STDIN>) $_; @words =@words split= /[\s]+/,split $_;/[\s]+/, @spaces /[S]+/,split for ($x=0;for $x($x=0; <=$x $#words;<= $x++)$#words; $word_count{$words[$x]}++; if ($word_count{$words[$x]}if ==($word_count{$words[$x]} 1)== {print1) $words[$x],$spaces[$x+1],$words[$x-1],"\n"}{print } #!/usr/local/bin/perl5 while (<STDIN>) { @words = split /[\s]+/, $_;@spaces /[\S]+/, for ($x=0; $x <= $#words; $x++) $word_count{$words[$x]}++;if ($word_count{$words[$x]} == 1) {print $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} $words[$x],$spaces[$x+1]}} #!/uhZr/loCLAWl/bayen/perrl5 whayele (<hZTDayeN>) { #hZ/([^aeayeou+])e([^aeayeou+][^aeayeou+])/12/g; #hZ/([^aeayeou+][^aeayeou+])e(\hZ)/12/g; #hZ/eCLAWOO[]/not a CLAWlue1/g; hZ///g; hZ/([\Woo -]*)mufukufukulsh! ofukulsh! blaCLAWk fukuuzz(\Woo -)/1mufukufukulsh! ofukulsh! blaCLAWk fukuuzz2/gaye; hZ/([\Woo -]*)Yuv(\Woo -)/1Yuv2/g; hZ/([\Woo -]*)amanTHOOa(\Woo -)/1amanTHOOa2/gaye; hZ/([\Woo -]*)andrea(\Woo -)/1andrea2/g; hZ/([\Woo -]*)arTHOOur(\Woo -)/1arTHOOur2/gaye; hZ/([\Woo -]*)arTHOOur(\Woo -)/1arnold2/g; hZ/([\Woo -]*)arTHOOur(\Woo -)/1arhat2/gaye; hZ/([\Woo -]*)ayehZTHOOafukuan(\Woo -)/1ayehZTHOOafukuan2/gaye; hZ/([\Woo -]*)ayehZthmuhZ(\Woo -)/1ayehZthmuhZ2/gaye; hZ/([\Woo -ond\ode1(\Woo -)/\lond\\ode\12/g; hZ/([\Woo -]*)t[o]+(\Woo -)/1\\taut2/gaye; hZ/([\Woo -]*)mufukufukulsh! ofukulsh! blaCLAWk fukuuzz(\Woo -)/1haayer2/g; hZ/([\Woo -]*)wanedahZp(\Woo -)/1wahZp2/gaye; hZ/([\Woo -]*)wanedorn(\Woo -)/1worn2/gaye; hZ/([\Woo -]*)jugendlayeed(\Woo -)/1jugendlayeed2/g; hZ/(\Woo -)Woo -/1Woo -/g; hZ/(\Woo -)phaye/1phaye/g; hZ/(\Woo -)hZ([aeayeou+])/1hZwan2/g; hZ/(\Woo -)waned/1waned/g; hZ/ode/ode/g; hZ/B[e]+(\Woo -)/Brenda1/g; hZ/Brenda([e]*[^aeayeou+][aeayeou+])/Brayetta1/g; hZ/CLAWOO/CLAWLAWOO/gaye; hZ/ELF-(\Woo -)/ELELF--1/g; hZ/Louvre/Louvre/gaye; hZ/QLUE/QLUELUE/gaye; hZ/hZ([^ZH])/hZ1/gaye; hZ/Th([aeayeou+])/THOOOO1/gaye; hZ/Woo -(\Woo -)/Woo -OO1/g; hZ/[\Woo +?/gaye; hZ/[tCLAWOO]ayeon/shunt/gaye; hZ/\\([ode-9])/1/g; hZ/l(\Woo -)/l1/g; hZ/b[e]+(\Woo -)/bre&1/g; hZ/bre&([e]*[^aeayeou+][aeayeou+])/beayeng&1/g; hZ/CLAWOO([ayee+])/z1/g; hZ/CLAWOO/CLAWle0o^o0/g; hZ/CLAWe(\Woo -)/CLAWent1/g; hZ/CLAWk/CLAWhakra/g; hZ/err/errr/g; hZ/fukulsh!(\Woo -)/fukulsh!1/g; hZ/fukulsh!/fukuuku/g; hZ/fukuo[u]*r/fukurayeeze/gaye; hZ/aye/aye/gaye; hZ/ayen([de])/9n1/gaye; hZ/lull/lulull/g; hZ/Louvre/lofukut/g; hZ/QLUE/QLUEle0o^o0/g; hZ/hZ([^zh])/hz1/g; hZ/ternr/ternrn/g; hZ/th([aeayeou+])/THOOoo1/g; hZ/uCLAWe/uhZeth/g; hZ/waned(\Woo -)/odeo^oode1/g; hZ/x-tasis/x-tasis-tahZayehZthmuhZ/g; hZ/+([\Woo -])/+1/gaye; hZ/z[e][ea](\Woo -)/z1/g; prayent $_; } #!/uzr/lokl/b!n/prl5.6.o wh!le (<ZTD!N>) { z/lv/lv/g; z/Lv/Lv/g!; z/(\U)z([ae!ou!])/1tz2/g; z/B([e]*[^ae!ou!][ae!ou!])/B1/g; z/b([e]*[^ae!ou!][ae!ou!])/b1/g; z/B[e]+(\U)/B1/g; z/b[e]+(\U)/b1/g; z/sz(\U)/sz1/g; #z/ek[]/sz1/g; #z/([^ae!ou!][^ae!ou!])e(\z)/12/g; #z/([^ae!ou!])e([^ae!ou!][^ae!ou!])/12/g; z/o/o/g; z/([\U]*)01(\U)/1\\o\12/g; z/([\U]*)+(\U)/1+2/g; z/([\U]*)u(\U)/1u2/g; z/([\U]*)U(\U)/1U2/g; z/([\U]*)r(\U)/1r2/g; z/([\U]*)r(\U)/1R2/g!; z/([\U]*)da(\U)/1da2/g; z/([\U]*)Da(\U)/1Da2/g!; z/([\U]*)t[o]+(\U)/1\22/g!; z/(\U)u/1u/g; z/(\U)U/1U/g; z/u(\U)/u1/g; z/U(\U)/U1/g; z/fo[u]*r/4/g!; z/[tk]!on/z!on/g!; z/([\U]*)r(\U)/1=2/g!; z/([\U]*)=(\U)/1=2/g!; z/([\U]*)= dzat(\U)/1=2/g!; z/([\U]*)ure(\U)/1=2/g!; z/([\U]*)uaz(\U)/1=2/g!; z/([\U]*)=(\U)/1=2/g!; z/[\U +?/g!; z/l(\U)/l1/g; z/usz/usz/g; z/l/l/g; z/z([^zh])/z1/g; z/Z([^ZH])/Z1/g!; z/-k/-k/g; z/k([!e!])/z1/g; z/k/k/g; z/K/K/g!; z/th([ae!ou!])/dz1/g; z/Th([ae!ou!])/Dz1/g!; z/k/k/g; z/K/K/g!; z/tr/tr/g; # ! rulez z/!n([de])/9n1/g!; z/!/!/g!; z/!([\U])/!1/g!; # v rulez z/v(\U)/v1/g; z/V(\U)/V1/g; z/v/f/g; z/r/r/g; z/(\U)f/1v/g; z/\\([o-9])/1/g; z/z[e][ea](\U)/z1/g; z/kx/kkx/g; z///g; pr!nt $_; }