问一个简单的正则表达式有关问题
问一个简单的正则表达式问题
$_= "apples pears peaches plums and apind ";
$_=~ tr/ap\w+ /*/c;
print;
如果我只想成除了ap的其他都用*表示
ap**** ***** ****** ***** *** ap*** 应该怎么改
------解决方案--------------------
$_= "apples pears peaches plums and apind ";
$_ =~ s/ap/\x01/g; # 先把所有的ap转换成一个特殊字符0x01
$_ =~ s/[^\x01\s]/*/g; # 替换掉所有非0x01和空格的字符为*
$_ =~ s/\x01/ap/g; # 把0x01替换回ap
print $_."\n";
好像没有相接的方法，用了一下中转，里面的特殊字符可以自己定义，需要是一个不会在字符串中出现的字符
------解决方案--------------------
$_= "apples pears peaches plums and apind ";
$_=~ tr/ap\w+ /*/c;
print;
如果我只想成除了ap的其他都用*表示
ap**** ***** ****** ***** *** ap*** 应该怎么改
------解决方案--------------------
$_= "apples pears peaches plums and apind ";
$_ =~ s/ap/\x01/g; # 先把所有的ap转换成一个特殊字符0x01
$_ =~ s/[^\x01\s]/*/g; # 替换掉所有非0x01和空格的字符为*
$_ =~ s/\x01/ap/g; # 把0x01替换回ap
print $_."\n";
好像没有相接的方法，用了一下中转，里面的特殊字符可以自己定义，需要是一个不会在字符串中出现的字符
------解决方案--------------------
- Perl code
($_="apples pears peaches plums and apind ")=~s/(?!ap)\w(?<!ap)/*/g && print;