正規表現(置換え)について

質問

置換え前
***.**.**.**
置換え後
***/**/**.**

上記のように、一部の『.』を『/』へ置き換え処理をするには
どのような正規表現になりますか？

宜しくお願い致します。

回答No.4

tatsu99

#1です。#2,3のかたが既に回答していますので、それで十分ですが、以下のようにします。
２つ以上の．がある時、前から２つの．を／に変えます。
# 先頭から２つ以内の.を/にする
$data = '*****.***.***.****.****';
$data =~ s#(\.)(.*?)(\.)#/$2/#;
print $data;

お礼

勉強になりました。
ありがとうございました。

回答No.3

BLUEPIXY

$data='***.**.**.**';
$data=~s|(.+?)(\.)(.+?)(\.)(.*)|\1/\3/\5|;
print $data;
とか？

お礼

候補の一つにします。
ありがとうございました。

回答No.2

BLUEPIXY

単純に
$data='***.**.**.**';
$data=~s|\.|/|;
$data=~s|\.|/|;
print $data;
ではだめですか

お礼

候補の一つにします。
ありがとうございました。

回答No.1

tatsu99

>一部の『.』を『/』へ置き換え処理
「一部の『.』」についての定義は何でしょうか。
先頭から２つ以内の『.』でしょうか。
それとも、４桁目、７桁目の『.』でしょうか。
一部の『.』について、もう少し、正確に提示していただけませんでしょうか。

補足

先頭から２つ以内の『.』という定義でお願いします。