my @words = split(/\s+/, $_[0]); # <-- Better to split on any whi
+tespace
my $newquery = qq[SELECT "taskID" from "repair" WHERE ("repairKEYWOR
+D1" = '')];
foreach my $currentword (@words) { # <-- Current word goes outsid
+e brackets
$currentword =~ /^([\w]+)$/;
$newquery .= qq[ or ("repairKEYWORD1" = '$currentword')];
$newquery .= qq[ or ("repairKEYWORD2" = '$currentword')];
$newquery .= qq[ or ("repairKEYWORD3" = '$currentword')];
}
Note use of
qq rather than quoted strings
Does it work any better?
Update Splits better on /s than
/S... but you saw that