#!/usr/bin/perl open(OUT,">query_page.html"); $zmin=0.02; # Minimaler z-Wert $zinterval=0.005; # Schrittlaenge $zmax=0.295; # Maximaler z-Wert # Anzahl der Teilintervalle: $zbinnumber=($zmax-$zmin)/$zinterval; print OUT "

Automatisch erzeugte Suchabfragen

\n

Jede Abfrage wird in das SDSS-SQL-Suchformular kopiert.

\n"; for ($i=0; $i<$zbinnumber; $i++) { $intervalmin=$i*$zinterval+$zmin; $intervalmax=($i+1)*$zinterval+$zmin; print OUT "

SELECT TOP 10
\np.objID,s.z,p.petroMag_r
\nFROM BESTDR7..SpecObj AS s
\nJOIN BESTDR7..Galaxy AS p ON s.bestObjID = p.objID
\nWHERE (p.primTarget & (dbo.fPrimTarget('TARGET_GALAXY')) > 0) AND (s.z>$intervalmin) AND (s.z<=$intervalmax) AND (zWarning = 0)
\nORDER BY p.petroMag_r ASC

\n
\n"; } print OUT "

Zurück zur Online-Material-Seite

\n"; close(OUT);