编程练习(There's more than one way to do it!)

xiumu2280

一个字符串

1. my $line = "adasd+dad+dada+dad+dada";

复制代码

将第二和第四个 '＋' 号变成 '＋\\'

只能用perl,  实现方法不限。

sunzhiguolu

如果字符串中 "+" 数量有规律的话,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $str = 'adasd+dad+dada+dad+dada';
   
6. $str =~ s/(\+.*?\+)/$1\\\\/g;
   
7. print $str;
   

复制代码

sunzhiguolu

如果原始字符串中 "+" 字符数量不确定, 添加一个计数器 只在计数器的值为 2 OR 4 的时候打印 \\ 字符.