#!/usr/bin/perl
#  hygfull.csv from http://www.astronexus.com/data/hyg.html
#  info on coloring stars  from Mitchell Charity's What color are the stars?
#          http://www.vendian.org/mncharity/dir3/starcolor/
#
# Dinoj Surendran dinoj@cs.uchicago.edu
#   April 13 2004
#   http://astro.uchicago.edu/cosmus/projects/milkyway/

open (IN, "hygfull.csv");
open (RA, ">ra.dat");
open (DEC, ">dec.dat");
open (ABSMAGS, ">absmags.dat");
open (SPEC, ">spectrum.dat");

$line = <IN>;

my %spectrums;


while ($line = <IN>)
{
    @tmp = split /[\,]/, $line;
    
    $start = 0;

    $ra = $tmp[$start+7];      
    $dec= $tmp[$start+8];      
    $absmag =  $tmp[$start+11];
    $spec = $tmp[$start+12];

    # $colindex = $tmp[$start+13];

    print ABSMAGS "$absmag\n";
    print RA "$ra\n";             
    print DEC "$dec\n";

    $spectrums{$spec}++;
}



@sortedspecs = reverse sort {$spectrums{$a}<=>$spectrums{$b}} (keys %spectrums);

# foreach $s (keys %spectrums)
foreach $s (@sortedspecs)
{
    printf SPEC "%s %d\n", $s, $spectrums{$s}; 
}