○文字目に文字挿入

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

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

5770001
↓
577-0001

にしたいのでしが…

No.2 ベストアンサー 回答者： futaroh_doevery 回答日時： 2004/10/14 10:54

試してないのですが

s/(.{3})(.*)/$1-$2/;
でよいはずです。

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

この回答へのお礼

ありがとうございます。

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

お礼日時：2004/10/14 11:53

No.3 回答者： leaz024 回答日時： 2004/10/14 14:03

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

$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 回答日時： 2004/10/14 10:49

#!/usr/bin/perl

$c = '5770001';

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

これでどうでしょうか?

この回答へのお礼

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

お礼日時：2004/10/14 11:52