作者snowfly (@@)
看板Perl
标题[问题] 字串分割
时间Sun Jan 6 18:34:30 2013
请问各位前辈
如果我有一个字串(字数不一定)
我要每四个字元插入"."，我该如何写呢？
example
input: A1B2C3D4E5F6G7H8
output: A1B2.C3D4.E5F6.G7H8
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 36.239.6.76
1F：推 dryman:$str = "A1B2C3D4E5F6G7H8"; 01/06 20:25
2F：→ dryman:$str =~ s/(.{4})/\1\./g && $str =~ s/\.$//; 01/06 20:26
3F：→ dryman:print $str; ==> A1B2.C3D4.E5F6.G7H8 01/06 20:26
4F：推 dryman:喔，想到了更好的解法，把第二行换成 01/06 20:36
5F：→ dryman:$str =~ s/(.{4})(?=.)/\1\./g; 01/06 20:36
6F：→ snowfly:谢谢dryman , 我原本是要用join的方式， 01/12 23:22
7F：→ snowfly:但是想不出来每四个split的方法..@@ 01/12 23:23