Displaying 1 result from an estimated 1 matches for "seekpt".
Did you mean:
seekp
2009 Apr 02
0
FLAC: joining source files
...D;
}
# get stats
$z=0; push @spt,0;
foreach $k (@y) {
$nfo= qx(sox -V $k -n 2>&1);
die "[FATAL] no info from file: $k" if $nfo!~/duration[^=]*=\s*(\d+) samples/mi;
$z+= $1;
push @spt,$z;
push @tr,$k;
}
return;
}
#-- MAIN
my( $discid,$discid0,$fgen,$nbsamples,$nfo,$seekpts,$t1,$t2 );
usage() if $#ARGV<0 or $ARGV[0]!~/^[0-9a-f]{8}$/; #yy or not(inpath 'sox')
$discid0= $ARGV[0];
$fgen='out_';
if ($#ARGV>0 and $ARGV[1]!~/^[0-9a-f]{8}$/) {
($discid,$t1,$t2)= @ARGV;
usage() unless $#ARGV==2 and $t1.$t2=~/^\d+$/ and $t1<$t2;
$fgen.= "${d...