今天在写实验代码的时候,突然有了这样一个需求,就是用Perl将包含换行(或回车)的字符串变成一行,并且每一行用空格分隔,经过搜索,网友介绍了这样的写法:
其实也很好理解,这里把网友的解释摘抄过来:=~ s/A/B/g 可以起到替换的作用,就是将内容A替换成内容B,后面的g是全局的意思,也就“全部替换”的意思。
[AB]意为A或者B两种情况。
Perl的转义字符和C很相似:
\n 换行
\r 回车
\t 水平制表符(Tab)
\b 退格
\e Esc (ASCII编码的转义字符)
\\ 反斜线
\" 双引号
所以上面这种写法就很好理解了。
另外在Perl中删除字符串前后空格的方法:
再举两个例子:
[ AB ]表示出现在中括号的是任意的其中一个,\n和\r是换行符 ,[\n\r]*中的*号表示0个或以上
总结起来,上面这条语句的含义是:将$AAA中的所有的换行符全部替换为空,也就是将所有换行去掉。
另外转载一下网友介绍的Perl正则表达式匹配规则:
++++++++++++++++++++++++++++++++++++++++++
对于一些常用的匹配方式有时候不需要去编写复杂的匹配模式,正则表达式的\w \s \d \b与量词的组合能帮我们解决很多事情。
\w 匹配一个字母、数字或下划线字符,相当于[a-zA-Z_0-9]
\s 匹配一个空字符
\d 匹配一个数字
\b 匹配单词的首尾
这些修饰符的大写形式为它们匹配的相反情况。
这样我们要匹配连续的字符串可以用 \w+ 匹配一个单词用 \b\w+\b 匹配空白用\s+
匹配所有字符用[\d\D],匹配除换行符之外的所有字符用“.”