perl正则表达式匹配后的各类变量

[root@rwsoda203db1 perl_tidb]# cat p.pl #!/usr/bin/perl use strict "subs"; use strict; use v5.16; my $n = 3; my $str = "first . <EM>PARENT</EM> LAST"; $str =~ m# (<.*?>)(.*?)(</.*?>)#; print "prematc

>>阅读原文<<