Pattern Matching (RegEx) 1

[Extension]

Hi,

I need your Regex expertise. I'm trying to convert a string in the following format A1A1A1 to [/b]A1A 1A1[/b]. So I was looking for a simple Regex to grab the first three chracters as $1 and the last three as $2 and then change the format this way.

Any help would be really appreciated.

Thanks

 

[mikrom]

Look at this

$line = "A1A1A1BBBCCC";
print "\$line=$line\n";

$line =~ s/(\S{3})/$1 /g;

print "\$line=$line\n";

 

[Extension]

Thanks mikrom. That's a quick and simple solution.

One more thing, the original format could be either A1A1A1 or A1A 1A1; so the RegEx is mainly to verify if it's in the right format. If not add a blank space after the three first characters.

 

[mikrom]

Then correct it to

$line =~ s/(\S{3})\s*/$1 /g;

it formats e.g.
$line=A1A1A1BBBCCC
to
$line=A1A 1A1 BBB CCC

and the line
$line=A1A 1A1 BBB CCC
leaves it untouched. i.e.
$line=A1A 1A1 BBB CCC

however the line
$line=A1A 1A1 BBBCCC
will be corrected to
$line=A1A 1A1 BBB CCC

 

[Extension]

Thank you very much for your help Mikrom.