从字符串末尾删除最后一个不同的K个字符

时间:2018-07-17 00:56:31

标签: regex perl

如何删除每个字符串末尾的G,并捕获其左侧的字符串。
    ... TGTGGG
    ... CTGAGGGGG
    ... ACAGGGGGGGG
    ... CAAACAGGGGGGGGGGGG

结果是这样的。如果可能的话,我想在正则表达式中捕获剩余的字符串。
    ... TGT
    ... CTGA
    ... ACA
    ... CAAACA
谢谢。

1 个答案:

答案 0 :(得分:3)

删除尾随G很容易。

s/G*$//

如果不一定是G,则可以将其与捕获组匹配。

s/(.)\1*$//

如果您只想删除最后一个重复了 的字符(因此ATCG不会被修改,而ATCGGG则会被更改),可以使用+

s/(.)\1+$//
相关问题