This file contains samples that will be helpful if you wish to use a perl script to reformat an existing text observing log for input to the Flare Catalog, using the template. The samples are:


SAMPLE TEXT OBSERVING LOG
SAMPLE PERL SCRIPT USED TO REFORMAT THE SAMPLE OBSERVING LOG
OUTPUT OF SAMPLE PERL SCRIPT OPERATING ON SAMPLE OBSERVING LOG


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
*****************************


SAMPLE PERL SCRIPT


#!/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


SAMPLE OUTPUT OF PERL SCRIPT

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: