DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: iTop_Mute2_config.pl
AUTHOR: Juan Lorenzo
DATE: July 27 2016
DESCRIPTION Combines configuration variables
both from a simple text file and from
from additional packages.
USED FOR
Upper-level variable
definitions in iTop_Mute3
Seismic data is assumed currently to be in
su format.
BASED ON:
Version 1 Based on linux command "cat"
Version 2 based on Sucat.pm June 29 2016
Added a simple configuration file readable
and writable using Config::Simple (CPAN)
Needs: Simple (ASCII) local configuration
file is iTop_Mute3.config
Package control:
filename is file, without a suffix!
In some cases, numbers must be
separated by commasi-- needed by
Seismic UnixNotes from bash
anonymous array reference $CFG
contains all the configuration variables in
perl script
file_name = '30Hz_All_geom_geom';
gather_header = 'fldr';
offset_type = 'tracl';
first_gather = 1;
gather_inc = 1;
last_gather = 100;
freq = '0,3,100,200';
gather_type = 'fldr';
min_amplitude = .0;
max_amplitude = .75;
DB
print("offset_type -4$offset_type\n\n");