Help for this page
while ( my $input_text = <INP> ) { ....
while ( my $line = <INP> ) { chomp $input; ... $queries++; } ...
# instead of ... else ... my $pair = join ',', grep { defined } ( $fnum, $snum ); $connectiontext .= $pair . '|'; }
push @allPairs, grep { defined } ( $fnum, $snum ); ... # or a trailing fnum my @matches = grep ( scalar @$_ == 2 && $_->[1] == $fnum } @allpairs
www.com | www.net | www.org
No recent polls found