#!/usr/bin/perl require "cgi-lib.pl"; $in = $ENV{"QUERY_STRING"}; # $fil = $ARGV[0]; $fil = "/global/web-homepages/zimmerma/ecmnet/ecdldb/scores/factors.sc"; if ($ENV{'QUERY_STRING'} eq "size") { open (FROB,"sort -nr $fil | "); } else # default is by date { open (FROB, $fil); } &head; &tablebegin; $i = 1; while () { @line = split(/\t/); print "$i"; # index print "", length($line[0]), ""; # digits print "$line[0]"; # factor print "$line[1]"; # from print "$line[2]"; # B1 print "$line[3]"; # sigma print "$line[4]"; # date print "$line[5]"; # who print ""; $i++; } &tableend; &foot; sub head { print < Cunningham factors found by ECMNET since January 1st, 2000 EOF } sub tablebegin { print < EOF } sub tableend { print < EOF } sub foot { print < EOF }
digits factor from B1/B2 sigma date who