我试图反转一个类似于正则表达式的主题。
我的主题示例:TA[TC]AA
当我使用函数(反向)时,它会将 [
反转为 ]
,所以我得到了类似的东西:AA]CT[AT
和我想要 AA[CT]AT
之类的东西。
我能为它做些什么?
非常感谢您的帮助!!
最佳答案
如果方括号是唯一的问题,使用音译来切换它们:
#! /usr/bin/perl
use warnings;
use strict;
use Syntax::Construct qw{ /r };
use Test::More tests => 1;
my $motif = 'TA[TC]AA';
my $reversed = 'AA[CT]AT';
is reverse($motif =~ tr/[]/][/r), $reversed;
或者,在 /r
不可用的 5.14 之前:
my $r = reverse $motif;
$r =~ tr/[]/][/;
关于regex - 如何在 Perl 中反转正则表达式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46681984/