$find = "find $args->{'path'}/ -name '$args->{'foo'}.*' -newer ~/start.txt ! -newer ~/end.txt | xargs grep -vh 'H\\|T' | awk -F, '{ if( \$1 !~ /\\// & & \$1 >= $args->{'start'} && \$1 < $args->{'end'}){"; for (my $i = 1; $i <= $indices; $i++){ $find .= "if(\$$args->{'index'.$i} ~ /^[0-9]+\$/ && \$$args->{'index'.$i} >= $args->{'min'.$i} && \$$args->{'index'.$i} <= $args->{'max'.$i} ){ print \$$args->{'index'.$i} }"; } $find .= "}}' | sort | uniq -c | awk '{print \$2,\",\",\$1}'"; ($edr,$stderr) = $args->{'ssh'}->capture2($find); if($stderr){ print $stderr;} @edr = split /\n/, $edr;