Question

perl 编程： my $s="5 8 6 4 adkad 4 5 6 8 5 akdf"; $s=~s/(?<=\d)\s(?=\d)//g; print $s;

上述程序结果如下：5864 adkad 45685 akdf
s/(?<=\d)\s(?=\d)//g 是什么意思？

(?<=\d)是什么意思？
(?=\d)是什么意思？

Answer 1

（？<=\d）从此处向后，字符串中若有\d则继续；
（？=\d）从此处向前，字符串中若有\d则继续。
s/(?<=\d)\s(?=\d)//g的意思就是，将前面是数字后面也是数字的空白替换成空（去掉）。

追问

谢谢，我没有查到“<=”代表向后，“=”代表向前的资料，我想学习这方面的知识，可以提供一些资料吗？

追答

可以参见大骆驼——《Perl语言编程》，用百度搜一下吧。