Source code for midititl.pl

#! perl

# Store help text in a variable

$syntax = "\nMidiTitl.pl,  Version 0.50 BETA\n";

$syntax = $syntax."Display titles of specified MIDI file(s)\n\n";

$syntax = $syntax."Usage:  MIDITITL.PL   filespec.mid\n\n";

$syntax = $syntax."Where:  filespec.mid  is a (list of) MIDI file(s);\n";

$syntax = $syntax."                      (wildcards allowed)\n\n";

$syntax = $syntax."Written by Rob van der Woude\nhttp://www.robvanderwoude.com\n";

# Check command line argument(s), open specified MIDI file

if ( !@ARGV[0] or @ARGV[1] ) {

	die( $syntax );

} else {

	$midi = @ARGV[0];

	open( STDIN, "< $midi" ) or die "\nCannot open file $midi\n    $!\n    $^E\n\n$syntax";

}

# Read MIDI file

$line = "";

while ( <STDIN> ) {

	$line = "$line $_";

}

# Close MIDI file

close STDIN;

# Remove excess white space

$line =~ s/\s\s/ /g;

# Filter relevant output

$string = "";

$count  = 0;

while ( $line ) {

	$count = $count + 1;

	if ( $line =~ m/([-_A-Z0-9\/\.,\s\(\)]{5,})(.*)$/i ) {

		chomp( $string = "$string $1" );

		$line = $2;

	}

	# Abort after 1000 iterations

	if ( $count > 1000 ) {

		$line = undef;

	}

}

# Remove everything before first tab

if ( $string =~ m/\t(.*)/ ) {

	$string = $1;

}

# Display output

print "\n$string\n";