DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: System_Variables_config.pl
AUTHOR: Juan Lorenzo
DATE: July 29 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)
Oct. 19 2016
Version 2.1 Includes option for multiple users in every directory
Needs: Simple (ASCII) local configuration
file is Project_Variables.configNotes
Simple reads configuration file and
cretes a hash with parameters (keys/names) and
their values as assigned inside the configuration
fileanonymous hash array reference $CFG class: cfg method: param returns: value
contains all the configuration variables in
perl script
HOME ='/home/gom';
PROJECT_HOME = '/FalseRiver';;
site = 'Bueche';
spare_dir = '';
date = '051216';
component = 'H';
line = '1';
subUser = 'gom';
-In case specifications are blank,
control package rectifies.
DB
print("1.System_Variables_config.pl,spare_dir is $spare_dir\n");
print("2.System_Variables,spare_dir is $$spare_dir\n");
print("1.System_Variables,spare_dir is $spare_dir-\n");
print("3.System_Variables,spare_dir is $spare_dir-\n");
print("4.System_Variables,site is $site\n");
print("1.System_Variables_config.pl,HOME is $HOME\n");package control corrects for empty string