Help for this page

Select Code to Download

Select or download this

                if($action eq '!='){
                    $match{$a} = 0 if $line[$position]=~m/\Q$key/i;
                }
                else{$match{$a} = 1 if $line[$position]=~m/\Q$key/i;}

Select or download this

    $match{$a} = ($line[$position] =~ m/\b\Q$key\E\b/i) ? 1 : 0;
    $match{$a} = !$match{$a} if $action eq '!=';