Эфир контроль радио-обмена

[nataraj]

#!/usr/bin/perl

use strict;

while (1)

{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $filename="tranceiver-control_$year-$mon-${mday}_$hour:$min:$sec.wav";

`AUDIODEV=hw:2,0 rec -p silence 1.5 0.8 0.8% 3 10:00 0.8% | sox -p $filename trim 0 1800 `;
}