[ic] perl to strip hyphens etc?

Jon Jensen jon at endpoint.com
Tue Jun 22 11:15:04 EDT 2004

On Tue, 22 Jun 2004, DB wrote:

> Ok I tried  the following but it seems to have no effect. I'm trying to 
> remove hyphens from a phone number before I write it to a file.
> #clean up phone numbers
> $phone_day=$array->{phone_day};
> $phone_day=~ s/[\-]+/ /g;
> print OUTFILE "$array->{phone_day}|";
> Why does this not work? Any ideas?

What about it doesn't work? Where is this code? Normally in Interchange 
you wouldn't be printing the output, but maybe in usertag.

In any case, your regex needs only be:

$phone_day =~ s/-+/ /g;


More information about the interchange-users mailing list