💾 Archived View for thrig.me › music › midi › dump.pl captured on 2024-02-05 at 11:23:56.
-=-=-=-=-=-=-
#!/usr/bin/env perl
use MIDI;
my $file = shift;
die "Usage: dump.pl midi-file\n" unless defined $file;
MIDI::Opus->new( { from_file => $file } ) ->dump( { dump_tracks => 1 } );