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

[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 `;
}

Comments

[maravan.livejournal.com]

ну а зачем use strict? :)

[shaplov.livejournal.com]

Потому что я имею привычку опечатываться в названиях переменных, поэтому пишу use strict на автомате и для коротких скриптов

[maravan.livejournal.com]

ну а я на автомате пишу еще и use warnings.