VERY rough prototype for midi control from analogue joystick.

controller.pl

#!/usr/bin/env perl

use MIDI::ALSA;
use SDL;
use SDL::Joystick;
use Time::HiRes qw( usleep );

SDL::init_sub_system(SDL_INIT_JOYSTICK);
my $joystick = SDL::Joystick->new(0);
my $x;

MIDI::ALSA::client( 'Game Controller MIDI::ALSA Client', 0, 1, 0 );
MIDI::ALSA::connectfrom( 0, 14, 0 );

while (1) {
    SDL::Joystick::update();
    $x = (SDL::Joystick::get_axis($joystick, 0) / 32768) * 256;
    MIDI::ALSA::output(
        MIDI::ALSA::controllerevent(0, 1, $x)
    );
    usleep(500);
}