Gossamer Forum
Home : General : Perl Programming :

How to modify this ?

Quote Reply
How to modify this ?
Hi all,

how to modify under script the %stopwords can be using Form Regex like ^[^><]{2,99}$

sub {
my $tags = shift;
my $query = $IN->param('query');
my %stopwords = map { $_ => 1 } qw/stop words here using space xx x/;
if (length $query < 3) {
return "QUERY TOO SHOTĄC";
}
if (exists $stopwords{$query}) {
return "NO MORE RECORDĄC";
} return $tags->{error};
# Display default error
}

Thank. ^^'
Quote Reply
Re: [PDK1999] How to modify this ? In reply to
Please could you explain further (I wasn't too sure what you meant)?

Last edited by:

Paul: Apr 18, 2003, 4:22 PM