○文字目に文字挿入

質問

お世話になっています。
正規表現の文字置換s///gを使って数字の３桁目に-を挿入したいですが、どうしたらいいのかわかりません。

どなたか教えていただけないでしょうか。

5770001
↓
577-0001

にしたいのでしが…

回答No.2

futaroh_doevery · ベストアンサー

試してないのですが
s/(.{3})(.*)/$1-$2/;
でよいはずです。

数字確定ならば\dでも可。

お礼

ありがとうございます。

汎用性があり、よかったです。

回答No.3

leaz024

既に解決済みのようですが、いろんな方法を知っておいて損はないので、別の例を１つ。

$zip = "5770001";
substr($zip, 3, 0) = "-";
print $zip;　　　# 577-0001

substr は左辺値（代入される側）にもでき、
　　substr($string, $offset, $length) = $replace;
とすることで、$string の $offset バイト目から $length バイト分を $replace に置き換えることができます。
上の例はこれを利用し、$length を 0 とすることで挿入を行っています。

# Perl5.005以降なら、substr($string, $offset, $length, $replace) と書くこともできます。

回答No.1

Dpop

#!/usr/bin/perl

$c = '5770001';

$c =~ s/(\d\d\d)(\d\d\d\d)/$1\-$2/;
print $c. "\n";

これでどうでしょうか?

お礼

即レスありがとうございます。
試した結果うまく動きました。