Hello,

I also need to remove "underscores" and "dashes" and "all other characters" from a query string and return only keywords with spaces, when using the encode_address as below.

sub encode_address {
my ($toencode) = shift;
$toencode =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
return $toencode;
}

How to do?

thanks

I don't know if this is it but wouldn't it be..

s{ /\_*$/ }g;

and

s{ /\-*$/ }g;
-------------
Jeremy
http://lc.crashinto.com - Crashinto Learning Central

No :)

Can't ypu just use CGI.pm?

Can this be simplified?

my ($cat_main_clean) = ($category_clean =~ m,^([^:]+),);
$cat_main_clean =~ tr/-/ /;
$cat_main_clean =~ tr/_/ /;

thanks

Well you could change:

$cat_main_clean =~ tr/-/ /;
$cat_main_clean =~ tr/_/ /;


to.....

$cat_main_clean =~ s/[-_]/ /g;

thanks, that will save a step, I wanted to do it in one step.

So, what is redrum - is it different from redwine ? I did not realize you are paul and you changed your name.

I'm not sure it can be done in one step as you are matching and then substituting.

Just watch someone prove me wrong.....hehe


Thats why I changed it - I was hoping people would no longer associate me with "PaulWilson" (that username brings back bad memories).