PTT數位生活區 / Perl

[問題] 字串分割

看板Perl作者 (@@)時間12年前 (2013/01/06 18:34), 編輯推噓2(2推 0噓 5→)
留言7則, 2人參與, 最新討論串1/1
請問各位前輩 如果我有一個字串(字數不一定) 我要每四個字元插入"."，我該如何寫呢？ example input: A1B2C3D4E5F6G7H8 output: A1B2.C3D4.E5F6.G7H8 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 36.239.6.76
推
01/06 20:25, , 1F
$str = "A1B2C3D4E5F6G7H8";
01/06 20:25, 1F
→
01/06 20:26, , 2F
$str =~ s/(.{4})/\1\./g && $str =~ s/\.$//;
01/06 20:26, 2F
→
01/06 20:26, , 3F
print $str; ==> A1B2.C3D4.E5F6.G7H8
01/06 20:26, 3F
推
01/06 20:36, , 4F
喔，想到了更好的解法，把第二行換成
01/06 20:36, 4F
→
01/06 20:36, , 5F
$str =~ s/(.{4})(?=.)/\1\./g;
01/06 20:36, 5F
→
01/12 23:22, , 6F
謝謝dryman , 我原本是要用join的方式，
01/12 23:22, 6F
→
01/12 23:23, , 7F
但是想不出來每四個split的方法..@@
01/12 23:23, 7F
‣ 更多 snowfly 的文章
文章代碼(AID): #1GwLCvIH (Perl)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 snowfly 的文章
文章代碼(AID): #1GwLCvIH (Perl)