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.
use IO::Socket; use strict; use IO::Socket qw(:DEFAULT :crlf); my $data; my ($host,$path); $host="rhizome.org"; $path="/discuss/view/41865"; my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 'http(80)'); print $socket "GET $path HTTP/1.0",CRLF,CRLF; print $data while read($socket,$data,1024) > 0;
I made a slight change to the one I posted on the site. I removed "sleep(1)". I find it more interesting, visually and you get more frequent strange word combinations like "arrestroduce" and "prisoncrickdear".
Comments
Careful with that axe, Eugene.
use IO::Socket;
use strict;
use IO::Socket qw(:DEFAULT :crlf);
my $data;
my ($host,$path);
$host="rhizome.org";
$path="/discuss/view/41865";
my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 'http(80)');
print $socket "GET $path HTTP/1.0",CRLF,CRLF;
print $data while read($socket,$data,1024) > 0;
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/
I like how after a while the whole begins to look like one long URL.
I made a slight change to the one I posted on the site. I removed "sleep(1)". I find it more interesting, visually and you get more frequent strange word combinations like "arrestroduce" and "prisoncrickdear".