Displaying 2 results from an estimated 2 matches for "infile_sampl".
Did you mean:
infile_samples
2003 Aug 25
6
Syncronize Monitored Calls
...path of your
perl script
#!/usr/bin/perl
$monitordir = shift;
$infile = shift;
$outfile = shift;
$finishfile = shift;
chdir($monitordir);
$infile_output = `sox $infile -e stat 2>&1`;
$outfile_output = `sox $outfile -e stat 2>&1`;
$infile_output =~ /Samples read:\s+(\d+)/;
$infile_samples = $1;
$outfile_output =~ /Samples read:\s+(\d+)/;
$outfile_samples = $1;
if($outfile_samples > $infile_samples)
{
$diff_samples = $outfile_samples - $infile_samples;
system("sox $outfile temp${outfile} trim ${diff_samples}s");
system("wmix $infile...
2004 Jan 20
1
help - recording both sides of a conversati on
...= shift;
> > $finishfile = shift;
> >
> > chdir($monitordir);
> >
> >
> > $infile_output = `sox $infile -e stat 2>&1`;
> > $outfile_output = `sox $outfile -e stat 2>&1`;
> >
> > $infile_output =~ /Samples read:\s+(\d+)/;
> > $infile_samples = $1;
> >
> > $outfile_output =~ /Samples read:\s+(\d+)/;
> > $outfile_samples = $1;
> >
> >
> > if($outfile_samples > $infile_samples)
> > {
> > $diff_samples = $outfile_samples - $infile_samples;
> > system("sox -v...