options var init stuff
# if($opt_h) # if($opt_O) # if($opt_O =~ /^connection$|^conn$|^c$/i) # elsif ($opt_O =~ /^operation$|^op$|^o$/i) # elsif ($opt_O =~ /^sort$|^so$/i) # elsif ($opt_O =~ /^statistics$|^statistic$|^stats$|^ +stat$|^st$/i) # elsif ($opt_O =~ /^e|^echo$/i) # else # else # if($opt_S =~ /^(\d+)\/([A-Za-z]+)\/(\d+)\:(\d+):(\d+):(\d+)$/) # elsif ($opt_S =~ /^(\d+):(\d+):(\d+)$/) # else # if($opt_S) # if($opt_E =~ /^(\d+)\/([A-Za-z]+)\/(\d+)\:(\d+):(\d+):(\d+)$/) # elsif ($opt_E =~ /^(\d+):(\d+):(\d+)$/) # else # if($opt_E) # if($opt_S) # if($lower_yr) # if($opt_E) # if($upper_yr) # if($output_format =~ /^connection$|^operation$/) # unless($ARGV[0]) # if($ARGV[1]) # else # elsif ($output_format =~ /^sort$|^echo$|^stat$/) # if($ARGV[0]) # else
meat and potatoes (read the log)
# if($output_format eq 'operation') # while(<ACCESS_LOG>) # if($opt_v) # foreach(keys(%pending)) # if($output_format eq 'connection') # while(<ACCESS_LOG>) # if($opt_v) # foreach(keys(%pending)) # if($output_format eq 'sort') # while(<ACCESS_LOG>) # foreach(@conn_nums) # if($output_format eq 'stat') # while(<ACCESS_LOG>) # if($result_count > 0) # else # if($output_format eq 'echo') # while(<ACCESS_LOG>) # if($in_file)
In reply to Re^3: Main logic of this script (summary/abstract/outline)
by Anonymous Monk
in thread Main logic of this script
by johnprince1980
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |