regex - 使用 Perl 在标记的左侧和右侧提取 K 个字符

Question

我有以下字符串。实际上，大小可以变化。

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC";

我想要做的是在 * 标记的左右提取 10 个字符，结果是：

  my $output = "GCCTCCGCAG*AAGCGGTCGC";

在 Perl 中有一种紧凑的方法吗？

Answer 1

你去：

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC";
my $output = substr($string, index($string, '*') - 10, 21);

Answer 2

这是使用正则表达式的一种快速简便的方法。两个{10}s 代表每边要匹配的字符数。

my ($output) = $string =~ m{(.{10}\*.{10})};