sxw

使用 Raku(之前叫 Perl 6):

.comb(/ '[' <( \w+ )> ']' /).join(',').say for $=finish.lines; 

=finish
AB[rb][qb][pc][oc][nd][ne][nf][og][oh][qh][rg][sf][ri][se][sb]
AW[qg][pg][of][pe][pd][qc][rc][sc][re][rf]
复制代码

sxw

回复 5# netdzb


    comb 是一个函数, 接收一个正则表达式, 会过滤下来所有匹配的字符串

sxw

回复 6# netdzb


    <( 表示匹配的开始， )> 表示匹配的结束。合起来表示 ，只有在 <(  和  )> 之间的字符串才会保留下来。