substr, modifying phone number 1

[nix45]

I have a 7 digit phone number that I want to add a - to after the first 3 digits. I got it working, but there has to be a better and simpler way than this.

$phone = '5551234';
$phone1 = substr($phone,0,3);
$phone2 = substr($phone,3);
$phone = $phone1 . '-' . $phone2;

Thanks,
Chris

 

[rharsh]

You only really need to use the substr function once.

my $phone = '5551234';
substr $phone, 3, 0, "-";

$phone is now '555-1234'.

 

[nix45]

Thanks, I knew it could be done in one line, but I couldn't remember how.

Chris

 

[parkers]

rharsh's solution is better however an alternative could be as follows:

$phone=~s/(\d{3})(\d{4})/$1-$2/g;