Question

perl语言，用正则表达式将一个文本中所有<>之间的字符串替换成1

Answer 1

精通perl精通正则

use strict;
use strict;

my $string="fdasaaaaaaaa<fsafefasfda dfdsf> fasfasf4gtr";
print $string,"\n";
$string=~s/\<.*?\>/\<1\>/g;

#对<进行转义\<

#>进行转义\>

#  .代表任意字符

#*代表任意个数

#？代表非贪婪匹配
print $string;

Answer 2

 

第一个是表达式

第二个是替换内容

第三个是原始数据

第四个是替换后的数据

追问

能给讲解下嘛？替换不应该是s///或者tr///吗？

Answer 3

$string=~/<(.*)>/g;
$string=~s/$1/1/g;
print $string;