fixcue - replace FILE ... WAVE lines in cuefile

fixcue.pl

#!/usr/bin/perl

use strict;
use Fcntl qw/SEEK_SET/;

if ($#ARGV == -1) {
	print "fixcue CUEFILE TRACK [TRACK ...]\n";
	print "  replace FILE ... WAVE lines in cuefile\n";
	exit 1;
}

my $cue = shift @ARGV;
my $f = open(CUE, $cue) or die "Cannae open $cue: $!";
my $t = 0;
while (<CUE>) {
	$t++ if m/^FILE/;
}
die "number of tracks in cue does not match passed\n" if ($t != scalar(@ARGV));
seek(CUE, 0, SEEK_SET);
while (<CUE>) {
	if (m/^FILE/) {
		print "FILE \"" . (shift @ARGV) . "\" WAVE\n";
	} else {
		print;
	}
}