Re: Golf: Replacing part of a string with "*"

my $string = '5424123412345678';
substr$_,0,-4,'*'x(length()-4)for$string;  # 41
print $string;
[download]

my $string = '5424123412345678';
s/(?!.{0,4}$)./*/g for$string;  # 30
print $string;
[download]

Update: More readable than the previous:

my $string = '5424123412345678';
$string=~s/(?!.{0,4}$)./*/g;  # 28
print $string;
[download]

Comment on Re: Golf: Replacing part of a string with "*" Select or Download Code

Replies are listed 'Best First'.
Re^2: Golf: Replacing part of a string with "*" by japhy (Canon) on Aug 18, 2006 at 16:04 UTC
Here's 25: `$string=~s/.(?=....)//g;` Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart*	[reply] [d/l]
Re^3: Golf: Replacing part of a string with "*" by ikegami (Patriarch) on Aug 18, 2006 at 16:10 UTC
jwkrahn beat you to 25 with `$string=~s/.(?=.{4})/*/g;`	[reply] [d/l]
Re^4: Golf: Replacing part of a string with "*" by japhy (Canon) on Aug 19, 2006 at 00:38 UTC
Congrats to him; I didn't look that far into the replies. Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply]