SAMPLE TEXT OBSERVING LOG
SAMPLE PERL SCRIPT USED TO REFORMAT
THE SAMPLE OBSERVING LOG
OUTPUT OF SAMPLE PERL SCRIPT
OPERATING ON SAMPLE OBSERVING LOG
********************************************************************************
Mees Solar Observatory Daily Observing Log
DATE 2000.10.18
INST PROG START END N-S W-E RGN
COMMENTS
--------------------------------------------------------------------------------
CORON HALPH 1656 2245 N00 W90
MCCD JPW05 1643 2245 N22 E62 9201
STOKES RCC01 0000 Y
IVM DLM12 1647 1651 N16 E60 9201
DLM12 1653 1657 N09 E27 9199
DLM12 1658 1702 S17 E37 9200
DLM12 1703 1707 S30 E16 9198
DLM12 1707 1711 S09 W10 9194
DLM12 1712 1716 S13 W55 9190
DLM12 1721 1821 0000 Y
DLM12 1829 1929 N43 E31 0000 Y
DLM12 1933 2032 N18 E61 0000 Y
DLM12 2041 2140 S43 W59 9190 Y
MWLT JPW06 1655 2245
POI BJL11
COMMENTS:
STOKES Idle for full disk mosaic.
IVM 1721 Full disk mosaic, 15 tiles.
IVM 1829 Full disk mosaic, 15 tiles.
IVM 1933 Full disk mosaic, 15 tiles.
IVM 2041 Full disk mosaic, 15 tiles.
***************
ADDITIONAL INFORMATION:
MSO Observer/Hours: GN/1630--2300 UT.
MSO Visiting Observer(s):
SKY BRIGHTNESS: 15 @ 1958 UT. 10182000
*****************************
#!/usr/bin/perl -w
#
# Catalogue.pl [process_MEES_data.pl]
# Author Alisdair Davey ard@solar.physics.montana.edu
# Started 10/30/2000
# Modified by Richard Canfield canfield@solar.physics.montana.edu
# Modification date 12/6/2000
#
use strict;
sub process_MEES_data () {
my ($debug, $verbose, @input) = @_;
my ($line, $output);
my ($DATE_OBS,$DATE_END,$SOURCE,$CLASS,$INSTRUMENT,$TYPE,$SUBTYPE,
$FORMAT,$MM_OP,$CENTER,$FOV,$URL,$EMAIL,$INFO);
my ($tmp_date, $tmp_start, $tmp_finish);
my ($in_instr, $tmp_instr, $previous_instr);
my @month = ("Jan", "Feb", "Mar", "May", "Apr", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
# Define standard site values or values for which no data will be available.
$SOURCE = "Mees Solar Observatory";
$URL = "http://www.solar.ifa.hawaii.edu/All/search.html";
$EMAIL = "labonte\@uhifa.ifa.hawaii.edu";
$MM_OP = "";
# Define instrument characteristics for site
my $site_instr_CORON = { CLASS => "Image",
INSTRUMENT => "H-alpha Coronagraph",
TYPE => "Optical",
SUBTYPE => "H-alpha (Optical)",
FORMAT => "Video",
FOV => "10,1",
INFO => "This instrument observes only above the limb. False reports will be generated for flares on the disk."
};
my $site_instr_MCCD = { CLASS => "Spectrum, Scan",
INSTRUMENT => "Mees CCD Imaging Spectrograph (MCCD)",
TYPE => "Optical",
SUBTYPE => "H-alpha (optical), Multichannel",
FORMAT => "FITS",
FOV => "3,3",
INFO => "",
};
my $site_instr_STOKES = { CLASS => "Image",
INSTRUMENT => "Haleakala Stokes Polarimeter",
TYPE => "Optical",
SUBTYPE => "Magnetograms (vector)",
FORMAT => "FITS",
FOV => "3,3",
INFO => "",
};
my $site_instr_IVM = { CLASS => "Image",
INSTRUMENT => "Imaging Vector Magnetograph",
TYPE => "Optical",
SUBTYPE => "Magnetograms (vector)",
FORMAT => "FITS",
FOV => "5,4",
INFO => "",
};
my $site_instr_MWLT = { CLASS => "Image",
INSTRUMENT => "Mees White Light Telescope",
TYPE => "Optical",
SUBTYPE => "White-light (optical)",
FORMAT => "JPEG",
FOV => "",
INFO => "",
};
my $site_instr_POI = { CLASS => "",
INSTRUMENT => "",
TYPE => "",
SUBTYPE => "",
FORMAT => "",
FOV => "",
INFO => "",
};
my $site_instr = { CORON => $site_instr_CORON,
MCCD => $site_instr_MCCD,
STOKES => $site_instr_STOKES,
IVM => $site_instr_IVM,
MWLT => $site_instr_MWLT,
POI => $site_instr_POI,
};
# Begin Processing
$in_instr = 0;
foreach $line (@input) {
chomp ($line); # remove \n
if (!$line) { next }; # skip blank lines
if ($debug) {
print "input> $line\n";
}
if ($line =~ /DATE/) {
$tmp_date = substr ($line, 40, 2)."-".$month[substr ($line, 37, 2)-1]."-".substr ($line, 32, 4);
}
if ($line =~ /----------/) {
$in_instr = 1;
next;
}
if ($line =~ /COMMENTS/) {
$in_instr = 0;
next;
}
if (!$in_instr) { next };
$tmp_instr = substr ($line, 4, 6); # select instrument
$tmp_instr =~ s/\s+$//; # remove trailing whitespace
if ($tmp_instr) {
$previous_instr = $tmp_instr;
}
else {
$tmp_instr = $previous_instr;
}
if ($debug) { print "Instrument: $tmp_instr\n" };
$tmp_start = substr ($line, 25, 4);
$tmp_start =~ s/\s+$//;
if (!$tmp_start) { next }; # instrument not used
$DATE_OBS = substr($tmp_start,0,2).":".substr($tmp_start,2,2)." ".$tmp_date;
if ($verbose || $debug) { print "DATE_OBS: $DATE_OBS\n" };
$tmp_finish = substr ($line, 33, 4);
$tmp_finish =~ s/\s+$//;
if (!$tmp_finish) { #logfile is incomplete
print "Observation started but not finished for instrument $tmp_instr at $DATE_OBS - skipping\n";
next;
}
$DATE_END = substr($tmp_finish,0,2).":".substr($tmp_finish,2,2)." ".$tmp_date;
if ($verbose || $debug) { print "DATE_END: $DATE_END\n" };
$CENTER = substr($line, 41, 3).", ".substr($line, 48, 3);
$CENTER =~ s/\s+$//;
$CENTER =~ s/^\s+//;
if ($CENTER =~ /^,/) {
print "No field of view specified for instrument $tmp_instr at $DATE_OBS - skipping\n";
next;
};
if ($verbose || $debug) { print "CENTER: $CENTER\n" };
# End of log processing - now read predefined stuff
$CLASS = $site_instr->{$tmp_instr}{"CLASS"};
$INSTRUMENT = $site_instr->{$tmp_instr}{"INSTRUMENT"};
$TYPE = $site_instr->{$tmp_instr}{"TYPE"};
$SUBTYPE = $site_instr->{$tmp_instr}{"SUBTYPE"};
$FORMAT = $site_instr->{$tmp_instr}{"FORMAT"};
$FOV = $site_instr->{$tmp_instr}{"FOV"};
$INFO = $site_instr->{$tmp_instr}{"INFO"};
# All processing done - fill Dominic's template.
$output .= "DATE_OBS: $DATE_OBS\n";
$output .= "DATE_END: $DATE_END\n";
$output .= "SOURCE: $SOURCE\n";
$output .= "CLASS: $CLASS\n";
$output .= "INSTRUMENT: $INSTRUMENT\n";
$output .= "TYPE: $TYPE\n";
$output .= "SUBTYPE: $SUBTYPE\n";
$output .= "FORMAT: $FORMAT\n";
$output .= "MM_OP: $MM_OP\n";
$output .= "CENTER: $CENTER\n";
$output .= "FOV: $FOV\n";
$output .= "URL: $URL\n";
$output .= "EMAIL: $EMAIL\n";
$output .= "INFO: $INFO\n\n";
} # End of loop over each log line
return $output;
}
;1
DATE_OBS: 16:56 18-Oct-2000 DATE_END: 22:45 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: H-alpha Coronagraph TYPE: Optical SUBTYPE: H-alpha (Optical) FORMAT: Video MM_OP: CENTER: N00, W90 FOV: 10,1 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: This instrument observes only above the limb. False reports will be generated for flares on the disk. DATE_OBS: 16:43 18-Oct-2000 DATE_END: 22:45 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Spectrum, Scan INSTRUMENT: Mees CCD Imaging Spectrograph (MCCD) TYPE: Optical SUBTYPE: H-alpha (optical), Multichannel FORMAT: FITS MM_OP: CENTER: N22, E62 FOV: 3,3 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 16:47 18-Oct-2000 DATE_END: 16:51 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: N16, E60 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 16:53 18-Oct-2000 DATE_END: 16:57 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: N09, E27 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 16:58 18-Oct-2000 DATE_END: 17:02 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: S17, E37 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 17:03 18-Oct-2000 DATE_END: 17:07 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: S30, E16 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 17:07 18-Oct-2000 DATE_END: 17:11 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: S09, W10 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 17:12 18-Oct-2000 DATE_END: 17:16 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: S13, W55 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 18:29 18-Oct-2000 DATE_END: 19:29 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: N43, E31 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 19:33 18-Oct-2000 DATE_END: 20:32 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: N18, E61 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: DATE_OBS: 20:41 18-Oct-2000 DATE_END: 21:40 18-Oct-2000 SOURCE: Mees Solar Observatory CLASS: Image INSTRUMENT: Imaging Vector Magnetograph TYPE: Optical SUBTYPE: Magnetograms (vector) FORMAT: FITS MM_OP: CENTER: S43, W59 FOV: 5,4 URL: http://www.solar.ifa.hawaii.edu/ALL/search.html EMAIL: labonte@uhifa.ifa.hawaii.edu INFO: