Experimental Data & Results

Data Archives:

Click on any date below to display the corresponding archive.

All dates are UTC

#! /usr/bin/perl # ----------------------------------------------------------------------------------------------------------- # graph_data_table, by Joseph A. DiVerdi # Copyright 2002 by XTR Systems, LLC, All Rights Reserved # ----------------------------------------------------------------------------------------------------------- # Includes and other external modules use warnings; use strict; use Time::Local; use CGI qw(-no_xhtml); use CGI::Carp; # qw(fatalsToBrowser); # ----------------------------------------------------------------------------------------------------------- my $q = CGI->new; my $directory = "/users/diverdi/html/magnetometer/graphs_daily/"; opendir GRAPHS, $directory or croak "Can't open directory '$directory': $!\n"; my @file_names = readdir GRAPHS; close GRAPHS; # traverse the list of file names and populate three multi-dimensional arrays with the corresponding day, month, and year # an empty value is used as the minimum necessary to return true with the defined function my ($years, $months, $days); foreach my $file_name (@file_names) { next unless $file_name =~ /^(\d{4})[_.-](\d{2})[_.-](\d{2})[_.-]UT[_.-]field\.png$/; $years->{$1} = ''; $months->{$1}{$2} = ''; $days->{$1}{$2}{$3} = ''; } # create a table containing the available archive files with 31 rows to accomodate the maximum number of days in a month # the number of columns depends on which month-year pairs are present in the archive directory # set up a few arrays outside the loops to speed their execution my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); # the day numbers must be formatted as two character strings with a leading zero as necessary to match the array keys my @day_numbers; foreach (1..31) { push @day_numbers, sprintf("%02d", $_) } my $url = ($q->keywords)[0] || ''; my $table_body = qq(\n); foreach my $day (@day_numbers) { $table_body .= qq(\n); foreach my $year (sort keys %{$years}) { foreach my $month (sort keys %{$months->{$year}}) { $table_body .= qq(\n); } } $table_body .= qq(\n); } $table_body .= qq(

); if (defined $days->{$year}{$month}{$day}) { my $file_ref = sprintf("%4d.%02d.%02d_UT", $year, $month, $day); my $name = sprintf("%2d %3s %4d", $day, $month_names[$month - 1], $year); $table_body .= qq($name); } else { $table_body .= ' '; } $table_body .= qq(

\n); print $q->header(-type => 'text/plain'), $table_body; exit; # -----------------------------------------------------------------------------------------------------------

---