[ic] perl to strip hyphens etc?
Ed Waldspurger
ewald at certifichecks.com
Tue Jun 22 11:20:22 EDT 2004
DB <mailto:DB at M-and-D.com> 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?
>
> DB
The variable you are printing is the original, not the one you changed. Try
printing $phone_day to OUTFILE instead of $array->{'phone_day'}
my $array = {phone_day => '555-1212'};
#clean up phone numbers
my $phone_day = $array->{'phone_day'};
$phone_day =~ s/[\-]+/ /g;
print "Original Number: $array->{'phone_day'}\n";
print "Filtered Number: $phone_day\n";
The code above should give you the following output.
Original Number: 555-1212
Filtered Number: 555 1212
Ed W.
More information about the interchange-users
mailing list