DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: perl_flow
AUTHOR: Juan Lorenzo
DATE: June 22 2017
DESCRIPTION Parse perl scripts written by L_SU
BASED ON:
USE
NOTES Needs sunix_pl.pm
Examples
CHANGES and their DATES April 29, 2019 encapsulate $Project_config to sub parse
declare variables
set private hash
sub get_all_names_aref
sub get_all_values_aref
parameter values
Note that all_values may not be complete and so
print method will create an error
sub get_check_buttons_settings_aref
sub get_num_prog_names
working file name
sub get_param_sunix_length
number of values or labels in a single program
sub get_prog_name_sref @{$perl_flow->{_all_prog_names_aref}}
sub get_parse_errors
read perl file line by line to find errors
Based on parse
sub parse
read perl file line by line
Always,
FIRST: get_good_sunix_params
THEN: $sunix_pl->get_good_sunix_names();
for names of programs
"good" values and labels are usually a subset of a much
larger available set of
values and labels for that program
foreach my $key (sort keys %$var) {
print (" grey_flow key is $key, value is $var\n");
}
sub set_perl_file_in
working file name