Re: regular expression

How about

use strict;
use warnings;

my $str = '4512872356698';
my $len = length $str;
substr($str, 6, $len - 10) = 'X' x ($len - 10);
print "$str\n";
[download]

Using lvalue substr for good effect.

Perl 6 - second systems done right

Comment on Re: regular expression Download Code

Replies are listed 'Best First'.
Re^2: regular expression by Anonymous Monk on Feb 15, 2012 at 12:44 UTC
I have to show only fist 6 and last 4 digits in between there can be any number of characters	[reply]
Re^3: regular expression by moritz (Cardinal) on Feb 15, 2012 at 12:56 UTC
... and my solution replaces them all by X. Is that not what you want? If you only want to replace digits in there, you can also say `substr($str, 6, $len - 10) =~ s/\d/X/g` [download] Perl 6 - second systems done right	[reply] [d/l]
Re^4: regular expression by Crackers2 (Parson) on Feb 15, 2012 at 16:07 UTC
Slight variation so you don't need the length: `substr($str, 6, -4) =~ s/./X/g;` [download]	[reply] [d/l]
Re^4: regular expression by Don Coyote (Hermit) on Feb 15, 2012 at 13:22 UTC
Inspiring. Subtracting the sum of the value of the length of the first and last visible digits to establish the variable length of the middle section. ++	[reply]