Body Perl Mashup Reveals Ignorance http://www.alansondheim.org/awash.jpg http://www.alansondheim.org/awash.mp4 print "\n"; #blank my ($extract_filename,$iterat ions, $formula) = @_;open(IN, "< $extract_filename") or die("can't o pen $extract_filename:$!");$line, $i, $index;$full_fil e "";while ($line <IN>)pull file, remove <cr> append single string c homp($line);join " ", $full_file, $line;}close(IN);split into indiv idual an @words split(/\s+/, $full_file);loop through iterationsI wrote word_index() for "1" based ($i=1; $i<=$iterations; $i++)$index word_index($i,$formula)-1;"$words[$index] "; #arr ays are zero so subtract generate values word_index $ret_val;($i, $ret_val eval($formula); #2 $i; #your example 2xreturn int #call trig (32 sin(x)) "$i*sin (.2*$i)"); #!/usr/local/bin/perl5.6.0 (<STDIN>) s/love/lv/g;s/Love/Lv/gi;s/(\W)s([aeiouy])/\1tz\2/ g;s/Be([e]*[^aeiouy] [aeiouy])/B\1/g;s/be([e]*[^aeiouy][aeiouy])/b\1/g; s/B[e]+(\W)/B\1/g;s/ b[e]+(\W)/b\1/g;s/ce(\W)/sz\1/g;#s/ec[]/sz\1/g;#s/ ([^aeiouy][^aeiouy]) e(\s)/\1\2/g;#s/([^aeiouy])e([^aeiouy][^aeiouy])/\ 1\2/g;s/0/o/g;s/([\W]*] ] )one(\W)/\1\\0\\1\2/g;s/([\W]*)and(\W)/\1+\2/g ;s/([\W]*)you(\W)/\1u\2/g;s/([\W]*)You(\W)/\1U\2/g ;s/([\W]*)are(\W)/\1r\2/g;s/([\W]*)are(\W)/\1R\2/g i;s/([\W]*)there(\W)/\1da\2/g;s/([\W]*)There(\W)/\ 1Da\2/gi;s/( [\W]*)t[o]+(\W)/\1\\2\2/gi;s/(\W)w/\1u/g;s/(\W)W/\ 1U/g;s/w(\W)/u\1/g;s /W(\W)/U\1/g;s/fo[u]*r/4/gi;s/[tc]ion/zion/gi;s/([ \W]*)are(\W)/\1=\2/g i;s/([\W]*)is(\W)/\1=\2/gi;s/([\W]*)is that(\W)/\1=\2/gi;s/([\W]*)were(\W)/\1=\2/gi;s/([\ W]*)was(\W)/\1=\2/gi ;s/([\W]*)am(\W)/\1=\2/gi;s/[\W]*\?/ \+\?/gi;s/al(\W)/l\1/g;s/uce/usz/g;s/ll/l/g;s/s([^ zh])/z\1/g;s/S([^ZH] )/Z\1/gi;s/ck/-k/g;s/c([iey])/z\1/g;s/c/k/g;s/C/K/ gi;s/th([aeiouy])/dz \1/g;s/Th([aeiouy])/Dz\1/gi;s/q/k/g;s/Q/K/gi;s/ter /tr/g;ruless/in([de] )/9n\1/gi;s/i/!/gi;s/y([\W])/!\1/gi;f s/f(\W)/v\1/g;s/F(\W)/V\1/g;s/f/ph/g;s/er/r/g;s/(\ W)ph/\1f/g;s/\\([0-9 ])/\1/g;s/z[e][ea](\W)/z\1/g;s/x/kx/g;s/'//g;$_;#! /usr/local/bin/perl5 /[\s]+/, @spaces /[S]+/, ($x=0; $x <= $#words; $x+ +) $word_count{$words[$x]}++;($word_count{$words[$x]} == 1) {print$words[$x],$spaces[$x+1],$words[$x-1],"\n"}/[u]/, /[m]/, $word_count{$words[$x-3]}++;$words[$x],$spaces[$x+ 1],$words[$x-3],"\n" }/[\S]+/, $words[$x],$spaces[$x+1]}$words[$x],$spaces[$x+1], $words[$x-8],"\n"}/a /, #!/usr/local/bin/perl $| 1; $time int(time/3600 ); srand time; $generator int(4*rand); "\nHi? What's name?\n"; chop($that=<STDIN>); "\nWell, $that, let's started ! Let's gender!!\n"; sleep(1); "That ok with you?\n"; chop ($str=<STDIN>); ($str eq "no") "\nOh well, nothing happened.\n"; g oto FINAL;} else going!\n\n";} "It's impossible decide on behavior! "\n" 1==$generator; "\nWhat thing you're making?\n"; $n ame=<STDIN>; $name; "$name new terrific gender!", 4==$generator ; open(APPEND,">> enfolding"); APPEND join(":",$name,$str,$generator,$that,$name), open( STDOUT); ($pid fork) <<Construct;Well, $name already constructs rouble us, subverting categories we take granted. Beneath sur face, $pid, neutral, $str? But what neutrality here, its const itution? Construct close (STDOUT);system("touch trace; rev enfolding > trace");exit(0);simple, compound, think.", "\n\n" 3==$generator; "What pronoun has existed hours?", 2==$generator; knew all along!", "Wait! $pid gone forever!", "\n\n"; FINAL: $ding nt((gmtime)[6]); "For days, been mourning...\n\n"; \$i*.25 2 sin(\$ 2)"); jjjfasdf 4000, \$i/3 5 5)"); Makes gender lines trace repre sent striations user's desire $t @a=("hard", "soft", "velvet", "co tton", "linen", "flax", "pure", "black", "dirty", "clean", "soiled "sexy", "wet", "sleazy", "wayward", "nice", "masculine", "lovely", "used", "fashionable", "small","death-like", "lively", "p rotruding", "penetrating", "thrusting", "giving", "forgiving", "poor", "rich", "sedate", "wanton","contrary", "nervous", "wander ing", "ill", "uneasy", "spry", "florid", "edgy", "neurotic", sychotic", "catatonic", "loose", "taut", "tight", "depressed" , "manic"); @verb=("thrusts", "turns", "surrounds", "oozes", inherits", "splays", "plays", "mixes", "amuses", "runs", "flo ws", "repairs"); @prep=("beneath within", "beyond", "throughout", confusing", "my "staining", "accompanying"); @noun=("breast", "lov e", "passion", "jumper", "skin"); $nnnn= rand(8); $non rand(11); $non1 rand(7); $pre rand(6); $gen int(48*rand); $gen1 $gen2 49 in t(40*rand); $g int(8*rand); ($sign=fork) "\nOpen mouth...\n";} {s leep(1); "\nAh... speak... speak...\n";exit(0);}sleep(2); "\nJennife r, they you, you...\n"; "\nAre dressed $that? Is $that "Are @nn n[$nnnn], flesh, ah answer...\n"; "Ah...\n"; "\nIs Travis wearing ... sweetly, turning grrrl", 4==$g;"\n@noun[$non1] @verb[$non] @prep[$nnnn] @nnn[$non1]!\n"; a[$gen2]@nnn[$nnnn]?\n"; "$that turns @@nnn[$g] 3==$g; opens totally you!", 7==$g; "Nothing moves, river deep...", mine, sweet am yours!",2==$g; body parts, dark st, them... "one one, each alone, typing Control-d done.\n"; @adj=< STDIN>;chop(@adj); $size=@adj; $pick=int(rand($size)); sr and; $newpick=int(rand($size)); "\nMy @adj[$pick] yours ...\n"; $be=int(rand(4)); join(":",$name,$str,$that,@adj[$ pick + 1], @adj[$newpick @@@1]),join(":",@adj,$name,$str,$sign,$g,$that,$name,@adj [$pick]), partying, $name, us?\n" 3==$be; "Come home me, julu-of-the-fast-crowd!\n" 2==$be; @a[$gen1] @a[$gen] @adj[$newpick]\n" 1 $b3; noun[$ non1] seeps @@adj[$newpick] Travis-Jennifer\n" 0==$be; "Ah, @noun[$non] eaten julu-of-the-open-arms travis- depressed\n" (2 < $be); "Devour f julu-of-the partying $name!\n" 1==$b e; close(APPEND);$diff=$pid $$;makes thoughtful $diff times!", calls forth @noun[$non], eating,excreting memory. @prep [$pre] @a[$gen], a[$diff], @noun[$non]? .trace; >> .trace");system ("rm becoming Jennifer's $name?\n"; chop($answer=<STDIN>); ($ans wer "You're dealing @a[10+$pre] Travis.\n";} "yes") @a[15+$p re] fantasy!\n";} "You melt Julu's skin forever...", 3 "I scar, woun d, brand.", "... @a[$non] $$ gift ...", 6==$g; darling flesh", wore her frock $d $gen3 48 int(20*rand);@a[$gen3] ..."; $u (time )/60; printf "and taken %2.3f minutes Jennifer "$u"; `rev .trace`, w srand( time() ^ ($$ << 15)) system 'touch APPEND'; @a qw( blood urine feces gas sand water oil solventalcohol lymph menses spit s aliva vomit sweat effluvia detritus excretions sloughings tears floo ds spews mercuries semen detergents ammonias ureas clays ic es grains substances conglomerates waxes piss shit scratches scrapes cuts wounds splits breaks diarrheas@verb skews churns comes goes passes towards across beneath around upon bel ow onto noun @ghost avatar spectre doll faerie wraithe hobgobli n troll tengu @kappa presence @nnn cloth stitch suture binding closing damming holding fabric velvet cotton wool silk $nnnn "\nRun-time $ pid\n";} "\nFirst flooding\n";"\n$that clotting everything. $nnn[$nn nn] soaked, written, erased. "Consider next smearing thinking skin.\n"; "\nYour $nnn[$non1] should wiped existence? "\nGive what. ..\n"; Consider following again, give hydrogenesis?", flood me..." body...", "The flooding names, soaking things! "\n$noun[$non1] $v erb[$non] $prep[$nnnn] $nnn[$non1]!\n"; "\nHow absorb $a[$ge n2] $nnn[$nnnn]?\n"; remembers $nnn[$g] sufficient me" absorbed hours, still alive", "List more effluvia\n"; $adj[$pick] chemistry here...\n"; $be=int(rand(5)); rope");join(":",$name,$str,$that,$adj[$pick 1],$ad j[$newpick join(":",@adj,$name,$str,$sign,$g,$that,$name,$adj "Does replace $name?\n" 4==$be; understand fluid!\n" 5== $be; $a[$gen1] $prep[$non1] $a[$gen] $adj[$newpick]\n" $noun [$non1] dissolves $adj[$newpick]!\n" "$noun[$non] ideohydraulesis!" "Write spilled far many $noun[$non], hungered, making things. $pr ep[$pre] $a[$gen], $a[$diff], $[$gen], $noun[$non] $adj[$ne wpick] wet $noun[$non]? rope satisfied written $a[10+$pre]!\n ";} "A $a[10+$pre] $a[15+$pre] nightmare!\n";} inscriptio finished, created thing.", perfect solution.", $a[$non] begi nning flesh.", final enunciation.", another entity named made!", written.", $a[$gen3]."; swallow last 1600, "(\$i) 8 cos(\$i) "); split(/t/, \$i/2sin(89+sin(\$i))/cos(89+sin(\$i))"); &parse_file_into_words("rr", 600, "\$i sin(\$i) / cos(\$i)"); sin(\$i)/2 cos(\$i)/6"); s/love/since/g;s/Love/these/gi;s/(\W)s([aeiouy])/\ 1ww\2/g;s/Be([e]*[^a eiouy][aeiouy])/kaos\1/g;s/be([e]*[^aeiouy][aeiouy ])/drought\1/g;s/B[e ]+(\W)/mars here\1/g;s/b[e]+(\W)/venus s/ce(\W)/crate\1/g;#s/ec[]/her\1/g;s/0/crate/g;s/( [\W]*)one(\W)/\her\\ 0\\1\2/g;s/([\W]*)and(\W)/\1my word\2/g;s/([\W]*)you(\W)/\1deceit\2/g;s/([\W]*)Yo u(\W)/\1worldwide\2/ g;s/([\W]*)are(\W)/\1R\2/g;s/([\W]*)are(\W)/\1R2\2 /gi;s/([\W]*)there(\ W)/\1yR F\2/g;s/([\W]*)There(\W)/\1AYR\2/gi;s/([\W]*)t[o]+ (\W)/\1\\0t\2/gi;s/( \W)w/\1WYN/g;s/(\W)W/\1wyn -/g;s/w(\W)/her scent\1/g;s/W(\W)/WsYN\1/g;s/fo[u]*r/RYV/gi;s/[tc] ion/SHYN/gi;s/uce/WY CE/g;s/ll/LYL/g;s/s([^zh])/hz\1/g;s/S([^ZH])/hZ\1/ gi;s/ck/SICK/g;s/c/S YE/g;s/C/cye/gi;s/th([aeiouy])/P\1/g;s/Th([aeiouy] )/p\1/gi;s/q/KY/g;s/ Q/ky/gi;s/ter/TYR/g;s/i/y/gi;s/y([\W])/+\1/gi;s/f( \W)/FY!\1/g;s/F(\W)/ fy!\1/g;s/f/FYR/g;s/er/yr/g;s/(\W)ph/\1PY/g;s/x/ST YX/g;#s/ec[]/not clue\1/g; s/([\W]*)There(\W)/\1muff black fuzz\2/g i; s/([\W]*)You(\W)/\1Yuv\2/g; s/([\W]*)am(\W)/\1aman tha\2/gi; s/([\W]*)and(\W)/\1andrea\2/g; s/([\W]*)are(\W)/\1 arthur\2/gi; s/([\W]*)are(\W)/\1arnold\2/g; arhat\2/gi; that(\W)/\1isthafan\2/gi; s/([\W]*)is(\W)/\1isthmu s\2/gi; s/([\W]*)one(\W)/\lond\\0\\1\2/g; s/([\W]*)t[o]+(\ W)/\1\\taut\2/gi; s/([\W]*)there(\W)/\1hair\2/g; s/([\W]*)was(\W)/\1 wasp\2/gi; s/([\W]*)were(\W)/\1worn\2/gi; s/([\W]*)you(\W)/\1 jugendlied\2/g; s/(\W)W/\1Woo s/(\W)ph/\1phi/g; s/(\W)s([aeiouy])/ \1swan\2/g; s/(\W)w/\1waned/g; s/0/ode/g; s/B[e]+(\W)/Brenda\1 /g; s/Be([e]*[^aeiouy][aeiouy])/Britta\1/g; s/C/CLAW/g s/F(\W)/ELF-\1/g; s/Love/Louvre/gi; s/Q/QLUE/gi; s/Th([aeiouy])/THOO\1/gi; s/W(\W)/WOO\1/g; s/[tc]i on/shunt/gi; s/b[e]+(\W)/bre&\1/g; s/be([e]*[^aeiouy][aeiouy])/ being&\1/g; s/c/clew/g; s/ce(\W)/cent\1/g; s/ck/chakra/g; s/er /err/g; s/f(\W)/flsh!\1/g; s/f/fuku/g; s/fo[u]*r/frieze/gi s/i/aye/gi; s/ll/lull/g; s/love/loft/g; s/q/qlew/g; s/ter/tern s/th([aeiouy])/thoo\1/g; s/uce/useth/g; s/w(\W)/0o ^o0\1/g; s/x/x-tasis/g; _______________________________________________ NetBehaviour mailing list [email protected] https://lists.netbehaviour.org/mailman/listinfo/netbehaviour
