精通perl精通正则
use strict;use strict;my $string="fdasaaaaaaaa fasfasf4gtr";print $string,"\n";$string=~s/\<.*?\>/\<1\>/g;
#对<进行转义\<
#>进行转义\>
# .代表任意字符
#*代表任意个数
#？代表非贪婪匹配print $string;
