perl - perl スクリプトの文字列内の複数の場所に特殊文字を追加する

Question

デバイスからいくつかの生データを読み取りました。このデータには IP アドレスも含まれていますが、形式が異なります。ご存知のように、IPアドレスは一般的にabcdの形式で書かれていますが、デバイスから与えられたabcdの形式のデータがあります。これを abcd の形式で取得する必要があります。これを perl スクリプトで行うにはどうすればよいですか?

よろしく

Answer 1

多くの方法があります。これにより、部分文字列でドットが挿入されます。

map { substr($string,$_,0)='.' } (6,4,2);

多分あなたは正規表現を好むでしょう。

$string =~ s/[0-9a-f]{2}\K(?!\Z)/./g;