У меня есть строка, которая выглядит как
my $str1 = "ACGGATATTGA";
my $str2 = "alex";
Что я хочу сделать, так это извлечь последние три символа от каждого из них.
$out1 = "TGA";
$out2 = "lex";
Как я могу сделать это в Perl?
Извлечь последние K-символы из строки в Perl
Ответ 1
Используйте substr:
$out1 = substr($str1, -3);