Displaying 1 result from an estimated 1 matches for "addtracks".
2009 Apr 02
0
FLAC: joining source files
...is much heavier to implement)
-- and may pose issues with meta info like seekpoints, cuepoints ...
========= snip snip ==========
#!/local/bin/perl
use strict;
our( @spt, at tr );
sub usage {
print "USAGES:\n\n$0 cddb_id [...]\n\n$0 cddb_id start_track end_track\n";
exit 1;
}
sub addtracks { my( @y, $k,$nfo,$nsp,$p,$z );
usage() if $_[0]!~/^[0-9a-f]{8}$/;
# build list of PCM files
if ($#_>0) {
for ($k=$_[1];$k<=$_[2];$k++) {
if ($k>9) { $p='' } else { $p='0' }
push @y,$_[0].'_'.$p.$k.'.wav';
}
}
else {
opendir D,'.';...