#!/usr/local/bin/perl
#
#   search_target.pl [探したい天体名]
#  "The STScI Digitized Sky Survey"(http://archive.stsci.edu/dss/)
#  で、第一引数に指定された天体を調べ、RA,DECを標準出力に返します。

use LWP::Simple;
$target = $ARGV[0];

$html = get "http://archive.stsci.edu/cgi-bin/dss_form?target=$target&resolver=SIMBAD";

@html = split(/\n/,$html);
foreach $line (@html){
    if($line =~ /name=r/i){@ra = &value($line);}
    if($line =~ /name=d/i){@dec = &value($line);}
}

# 次の行を変えると出力形式が変わります。
print "RA:@ra[0]:@ra[1]:@ra[2]:DEC:@dec[0]:@dec[1]:@dec[2]";

sub value{
    local($line) = $_[0];
    local(@line) = split(/<|>/,$line) ;
    foreach $content (@line){
	if($content =~ /value/){
	    @content = split(/"/,$content);
            foreach $value (@content){;
		unless($value =~ /value/i){
		    @value = split(/\s/,$value);
		    return @value;
		}
	    }
	}
    }
}