Fernando <[EMAIL PROTECTED]> said something to this effect on 07/11/2001:
> I have a credit card number that I want to change to email a
> reciept to the customer. This is that I want:
>
> I have this number: e.j. 1111 8578 596 8552
> I want to convert all the number to "x" like that xxxx xxx xxxx
>
> when I use this:
>
> $number = "1111 8578 596 8552";
> $number =~ s/\d+/x/g;
>
> Perl give only one "x" in the result.
Try tr/// rather than s///
$number =~ tr/[0-9]/x/;
Faster, and it does what you want.
(darren)
--
"The first rule of magic is simple. Don't waste your time waving your
hands and hoping when a rock or a club will do."
-- McCloctnik the Lucid
