Perl 最后一个字符

Perl是一个广泛使用的编程语言，支持多种编程范式。在Perl中，获取字符串的最后一个字符是一个常见的需求。下面将介绍几种获取Perl字符串最后一个字符的方法。

使用substr函数

substr函数是Perl中常用的函数之一，可以用于提取字符串的子字符串。获取字符串的最后一个字符，只需使用substr函数，将字符串的长度-1作为第二个参数即可。

my $str = "Perl";
my $last_char = substr($str, -1);
print $last_char; # 输出 l

使用正则表达式

正则表达式也是Perl中非常有用的一种工具。可以使用正则表达式获取字符串的最后一个字符，将字符串与正则表达式“(.)$”进行匹配即可。

my $str = "Perl";
my ($last_char) = ($str =~ /(.)$/);
print $last_char; # 输出 l

将字符串转换成数组

Perl中字符串和数组的转换非常容易。可以将字符串转换为数组，然后获取数组的最后一个元素即可。使用split函数将字符串转换为数组。

my $str = "Perl";
my @arr = split //, $str;
my $last_char = $arr[-1];
print $last_char; # 输出 l

以上是获取Perl字符串最后一个字符的一些方法，可以根据实际需求选择使用。