从Perl中的字符串中提取最后K个字符

Question

我有一个看起来像这样的字符串

my $str1 = "ACGGATATTGA";
my $str2 = "alex";

我想要做的是从每个字符中提取最后三个字符.

$out1 = "TGA";
$out2 = "lex";

我怎么能在Perl中做到这一点？

Answer 1

使用substr:

$out1 = substr($str1, -3);