#!/usr/bin/perl
# break the 'solvepht' output file into pieces, one piece per star.

$target = "_iyuma";
$name = $target; $name =~ s/_asas//;
#$target = "_dqher";
#$name = $target; $name =~ s/_//;
$aper = "4";
$filter = "";
$set = "dat" . $aper;
$solveout = "solve" . $target . "" . $aper . "_" . $filter . ".out";

#@letters = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L",  "");
@letters = ("A", "B", "C", "D", "E", "IY");
#@numbers = ( 6,   4,   1,   9,   10,  12,    99,    5);
#@numbers = ( 21,  19,  15,  24,  25,  27,     5,    20);
#@numbers = ( 23,  20,  15,  27,  28,  30,    5,    21);
@numbers = ( 13,  3,   11,  6,  2,   8);
$numstar = @letters;

$index = 0;
while ($index < $numstar) {
  $let = $letters[$index];
  $num = $numbers[$index];
  printf " let $let  num $num \n";
  
  $outfile = sprintf("star%s_%s.%s", $let, $filter, $set);
  `egrep "^$num " $solveout > $outfile `;

  $index++;
}

exit 0;