12 my $fgroot = $ENV{'FG_ROOT'} || '.';
14 my $dir="$fgroot/ATC";
18 my $str = 'Tucson International airport_information
19 Ryan automated_weather_observation
20 zero four one five zulu weather
21 / Wind one one zero at one five
23 / sky_condition two thousand four hundred scattered
24 / Temperature one zero celsius dewpoint five celsius
25 / Altimeter two niner niner two
26 / Landing_and_departing_runway one one right
27 / on_initial_contact_advise_you_have_information zulu ';
33 ##print "$start{'decimal'} ... $len{'decimal'}\n";
40 for my $word (split(' ', $str)){
47 my $cmd = 'sox -q -r 8000 -t raw -e signed-integer -b 16 tmp.raw'
60 if (exists $start{$arg}) {
61 my $cmd = "sox -q $dir/voice.wav "
62 . " -t raw -r 8000 -e signed-integer -b 16 - "
63 . " trim $start{$arg}s $len{$arg}s"
67 my $end = $start{$arg} + $len{$arg};
68 print "$start{$arg} + $len{$arg} = $end\n";
70 print "Can't find '$arg'\n";
76 my $inch = Symbol::gensym();
77 my $file = "$dir/voice.vce";
78 open($inch, "<$file") || die "Cannot open input file '$file'\n";
82 liner: while (my $line = <$inch>){
84 my @word = split(" ", $line);
89 my $id = lc($word[0]);
94 print "$id $st $ln\n";
98 ##print "$ii $nn '$line'\n";
101 print "(($header)) --> $ii\n";