# 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 #### # if($output_format eq 'operation') # while() # if($opt_v) # foreach(keys(%pending)) # if($output_format eq 'connection') # while() # if($opt_v) # foreach(keys(%pending)) # if($output_format eq 'sort') # while() # foreach(@conn_nums) # if($output_format eq 'stat') # while() # if($result_count > 0) # else # if($output_format eq 'echo') # while() # if($in_file)