BIO
The Microcode website
Brand new Microcode, "CNN Dada". This one's particularly pleasant to watch.
#!/usr/bin/perl
use LWP::Simple;
system 'clear';
$width = `tput cols`;
$height = `tput lines`;
$text = get('http://rss.cnn.com/rss/edition.rss');
$text =~ s/<[^>]*?>//g;
@words = split(' ', $text);
while(1){
($horiz, $vert) = (int(rand($width)), int(rand($height)));
system 'tput', 'cup', ($vert, $horiz);
print $words[int(rand(scalar @words))];
sleep(1);
}
http://pallit.lhi.is/microcodes/
#!/usr/bin/perl
use LWP::Simple;
system 'clear';
$width = `tput cols`;
$height = `tput lines`;
$text = get('http://rss.cnn.com/rss/edition.rss');
$text =~ s/<[^>]*?>//g;
@words = split(' ', $text);
while(1){
($horiz, $vert) = (int(rand($width)), int(rand($height)));
system 'tput', 'cup', ($vert, $horiz);
print $words[int(rand(scalar @words))];
sleep(1);
}
http://pallit.lhi.is/microcodes/
birth instructions and death
No conception? I think if you copy my Generative program and insert like so:
for(;;){
require('generative.pl');
...
That should do it.
for(;;){
require('generative.pl');
...
That should do it.
The Microcode website
I've created a website where I'll be collecting my "Microcodes". It's at http://pallit.lhi.is/microcodes I'll be updating this as frequently as needed.
Thickening time (Microcode)
#!/usr/bin/perl
$count = 0;
while(1){
foreach(0..$count){
$back = "../" x $_;
mkdir $back."time".$count;
chdir "time".$_;
}
$count++;
}
$count = 0;
while(1){
foreach(0..$count){
$back = "../" x $_;
mkdir $back."time".$count;
chdir "time".$_;
}
$count++;
}
