#!/usr/local/bin/perl -w # script: swims_plots.pl # created 03/02/06 # this perl script takes all the gif files in the # /home/mussel5/ftp/pub/ace/level3/swims/ACE_SWIMS_MMTH/ # directory and creates web pages that links to them all $date = `date`; open(HTML_PG, ">summary_plots.html") or die "can't open file summary_plots.html"; @fns = ; # get files #print "@fns\n"; print HTML_PG " ACE/SWIMS Daily Solar Wind Mass Distribution Plots

ACE/SWIMS Daily Solar Wind Mass Distribution Plots


These files can be downloaded via anonymous ftp, from mussel.srl.caltech.edu
in the directory: pub/ace/level3/swims/ACE_SWIMS_MMTH\n

\n"; print HTML_PG " (Year/DOY   .....File Size)
\n"; $lg_file_size = 0; foreach (@fns){ $cup = -s $_; $lg_file_size < $cup and $lg_file_size = $cup and $fn = $_; } print "largest file size $lg_file_size $fn\n"; $yr_check = 1998; foreach (@fns){ /mth(\d{4})(\d{3}).*/; $yr = "$1"; # print "$yr\n"; $yr_check == $yr and print HTML_PG "

\n\nSWIMS  plots for year '$yr_check'
\n" and $yr_check++ ; $file_size = -s $_; print HTML_PG "
$1/$2   .....$file_size\n"; # for ($jj=0; $jj<=10*$file_size/$lg_file_size; $jj++){ # print HTML_PG "* "; # } } print HTML_PG "

Contributed Data Page

Return to ASC Home Page

Our Email Address: asc\@srl.caltech.edu
Last Updated: $date
"; close(HTML_PG);