music for perl mongers

[alex]

Live mp3 stream from sound-hack.org :

 mpg123 http://sound-hack.org:8000

(streams are limited - please take care)

And the source:

#!/usr/bin/perl -w
use strict;

use MIDI::Realtime;
my $m = MIDI::Realtime->new();
while (1) {
  my @rand = map {int rand(128)} (0 .. 1024);
  my @avoid_warning = sort {play($a, $b)} @rand;
}

sub play {
  my ($a, $b) = @_;
  $m->note($a, 1);
  $m->note($b, 2);
  return $a <=> $b;
}

Thanks for the inspiration  :)

Actually I just noticed that this code is using 97% CPU, better change it
a bit..

-- 
a fuzzy mind that envelops facts and then digests them slowly
A member of the state51 conspiracy
sound formed in a hoover may seem a waste of time