# just a quick and dirty work for converting formant listing output 
# of praat to F1 F2 data table for "vowel-each.R" 

# 2005-05-05
# Mafuyu Kitahara

$file = 'aiueoF1F2.data';

open (DATA, "$file");

    $count_a = 1;
    $count_i = 1;
    $count_u = 1;
    $count_e = 1;
    $count_o = 1;
    $subj = 1; ## because of the heaer line in the input

open (OUT, ">$subj.dat");
print OUT "  F1         \t F2 \n";

while (<DATA>) {
    next if (/^[\s\t]/);
  @col = split;

  if ($col[0] =~/a/ && $count_a == $subj){
      print OUT $_; $count_a++;
  }
  if ($col[0] =~/i/ && $count_i == $subj){
      print OUT $_; $count_i++;
  }
  if ($col[0] =~/u/ && $count_u == $subj){
      print OUT $_; $count_u++;
  }
  if ($col[0] =~/e/ && $count_e == $subj){
      print OUT $_; $count_e++;
  }
  if ($col[0] =~/o/ && $count_o == $subj){
      print OUT $_; $count_o++;
  }

if ($count_a == $count_i && $count_a == $count_u && $count_a == $count_e && $count_a == $count_o) {
$subj++;
open (OUT, ">$subj.dat");
print OUT "  F1         \t F2 \n";
}
}