#!/usr/local/bin/perl
# MIDIファイルをランダムに再生
# Programed by Shake 2000/4
# MIDIファイルがあるディレクトリ
$mididir="../../midi/mid/";
opendir DIRECTORY,$mididir || die "Can't Open\n";
@entry=readdir DIRECTORY;
# midファイルのみを抜き出す
@midfiles=grep /\.mid$/,@entry;
# 乱数を使って演奏するMIDIファイルを選択
srand;
$r=int(rand($#midfiles+1));
$file=$midfiles[$r];
# HTML出力
print "Content-type: text/html\n\n";
print <<"EOP";
@midfiles
EOP