regex - 如何在 Perl 中反转正则表达式

Question

我试图反转一个类似于正则表达式的主题。我的主题示例:TA[TC]AA当我使用函数(反向)时，它会将 [ 反转为 ]，所以我得到了类似的东西:AA]CT[AT 和我想要 AA[CT]AT 之类的东西。

我能为它做些什么？

非常感谢您的帮助!!

Answer 1

如果方括号是唯一的问题，使用音译来切换它们:

#! /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/[]/][/;