So the skimmable version might have been (or the new refactored version might be)
#!/usr/bin/perl -- Main( @ARGV ); exit( 0 ); sub Main { use Getopt::Long; my %opt; GetOptions( \%opt, ... ); my %needed = ValidateOptionsAndInitializeStuffWeNeed( \%opt ); return PrintHelp() if $opt{help_needs_to_happen}; return ReadTheLogBasedOnFormat( \%opt , \%needed ); } sub ValidateOptionsAndInitializeStuffWeNeed { my( $optref ) = @); ... if( ... ){ die "Unknown output type ..."; } ... }
In reply to Re^4: Main logic of this script (summary/abstract/outline)
by Anonymous Monk
in thread Main logic of this script
by johnprince1980
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |