#!/usr/bin/perl use Math::Utils qw(:utility); #use Geo::Coordinates::DecimalDegrees; #Script to convert Asci table .master to html $file = $ARGV[0]; $title = $ARGV[1]; $Nfield= 22; $dss_search = 2; if (-e $ARGV[$0]) { open (INFILE,"<$file"); print ("Openning file $file\n"); } else { print ("file $file not found\n"); } open(OUTFILE,"> $file.html") || die "Could not create $file.html\n"; #Print header print OUTFILE " $title

$title


View ascii table. Download script.
Click on the ID to view images

Click on the column header to sort

\n"; $comment = 0; $I=0; while () { @columns = split(/,/); $ctr=0; $RA = $columns[10]; $DEC = $columns[11]; @radms = split(/:/,$RA); $RA_d=$radms[0]; $RA_m=$radms[1]; $RA_s=$radms[2]; $ra2000 = 15.0 * ($RA_d + ($RA_m / 60.0) + ($RA_s / 3600.0)); #$ra2000 = 15.0 * dms2decimal($RA_d,$RA_m,$RA_s); @Decdms = split(/:/,$DEC); $Dec_d=$Decdms[0]; $Dec_m=$Decdms[1]; $Dec_s=$Decdms[2]; if ( $DEC =~/^[+]/ ) { $dec2000= (abs($Dec_d) + (abs($Dec_m) / 60.0) + (abs($Dec_s) / 3600.0)); } else{ $dec2000=-1* (abs($Dec_d) + (abs($Dec_m) / 60.0) + (abs($Dec_s) / 3600.0)); } #$dec2000 = dms2decimal($Dec_d,$Dec_m,$Dec_s); #print("a[0]:",$a," ",$dec2000); $NameID = $columns[2]; $id_off = $columns[3]; $Texp = $columns[4]; $PSF = $columns[5]; $version= $columns[7]; $maxAuto= $columns[12]; $ebv_planck = $columns[14]; # $obj = new Astro::Coords(ra=>'15:09:45.4534434', dec=>'03:00:45',type=>"J2000", format=>'sexagesimal'); # ($ra2000,$dec2000) = ($obj -> ra(format=>'deg'), $obj->dec()); #my ($ra2000, $dec2000) = palFk45z($RA, $DEC, 2000.0); print STDOUT "\n$RA,$DEC,\n"; print STDOUT "\n$DEC,$dec2000,\n"; print OUTFILE " \n"; if ($NameID =~ "---"){ my $comment = 1; my $ctr = $ctr +1; print STDOUT $comment; } if ($I == 0){ print OUTFILE "
ID \n"; } else { print OUTFILE " $I \n"; } while($ctr<$Nfield){ my $Field=$columns[$ctr]; if ($I == 0){ print OUTFILE " $Field\n"; } else { if ($ctr == 1 && ($comment == 0 && $NameID !~ /[#]/)){ print OUTFILE " $Field \n"; # print OUTFILE " HST Search \n"; #print OUTFILE " ESO vis \n"; #print OUTFILE " GSC-2 \n"; #print OUTFILE " 2Gyro Vis\n"; #print OUTFILE " OHlines \n"; if ($ctr==2) { print OUTFILE " $Field \n"; } $NameID=$Field ; #if (!(-e $NameID)) { # #print STDOUT "mkdir $NameID\n"; # #$command = "mkdir $NameID"; # #system($command); # } open(OUTFILE_object,"> $NameID.html") || die "Could not create $NameID.html\n"; print OUTFILE_object " $NameID

$NameID $RA $DEC


Click on the links to view images

(fits)
Archive DECAL POSS2 $dss_search' POSS IR $dss_search' SDSS DR16
Galex Search
IUE Search
FUSE Search
HST Search
.fits DECal grz.fits PossR.fits UKIRT.fits 2MASS SDSS (jpeg)


HST image Reduced Cube \n"; #$command = "awk '{print \$0}' Run_Summary2.hdr > $NameID.Obs"; #system ($command); #$command = "more GTO*List | grep $NameID >> $NameID.Obs"; #system($command ) ; #$command = "HST_Run_to_html.pl $NameID.Obs"; #system($command); }else{ print OUTFILE " $Field \n"; } } $ctr=$ctr+1 }#while print OUTFILE " \n"; $I=$I+1; } #while print OUTFILE "

N. Bouche nicolas.bouche\@univ-lyon1.fr
";