[NetBehaviour] Body Perl Mashup Reveals Ignorance

Alan Sondheim sondheim at panix.com
Tue May 12 03:28:02 CEST 2020



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 at 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, at adj[$ pick + 1],
@adj[$newpick
@@@1]),join(":", at adj,$name,$str,$sign,$g,$that,$name, at 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 at 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(":", at 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;



More information about the NetBehaviour mailing list