Perl技术问询：如何提取列表最后元素与路径中最后文件名

1. 如何提取列表的最后一个元素？ #

在Perl里提取列表最后一个元素有几种实用的方法，按需选择就行：

• 反向索引法：Perl支持用负索引直接访问列表末尾元素，这是最便捷的方式，而且不会修改原列表：

  my @fruits = ('apple', 'banana', 'cherry');
  my $last_fruit = $fruits[-1]; # 结果是'cherry'
  

• 数组长度索引法：通过$#数组名获取数组最后一个元素的索引值，同样不修改原列表：

  my @nums = (1, 2, 3, 4);
  my $last_num = $nums[$#nums]; # 结果是4
  

• pop函数法：pop会直接移除并返回列表的最后一个元素，但要注意这个操作会改变原列表的内容，适合不需要保留原列表的场景：

  my @colors = ('red', 'green', 'blue');
  my $last_color = pop @colors; # $last_color是'blue'，@colors现在变成('red', 'green')
  

2. 从动态路径字符串中提取最后一个文件名 #

你的需求是从$test = '* file/test/ttt/rrr/aaa/abc.fff.ter.yyy:myfilename.txt'里提取myfilename.txt，之前用split ///的思路不对，因为split ///是把字符串拆成单个字符的列表，取索引4完全是碰运气。这里给你两种靠谱的实现方式：

方法一：按冒号分割取最后一段 #

观察字符串结构，目标文件名在最后一个冒号之后，直接用冒号分割字符串，取最后一个元素即可：

my $test = '* file/test/ttt/rrr/aaa/abc.fff.ter.yyy:myfilename.txt';
my @parts = split /:/, $test;
my $filename = $parts[-1]; # 结果是'myfilename.txt'

方法二：正则表达式匹配 #

用正则匹配冒号之后到字符串结尾的所有内容，这种方式更灵活，即使字符串里有多个冒号，也能精准取最后一个冒号后的内容：

my $test = '* file/test/ttt/rrr/aaa/abc.fff.ter.yyy:myfilename.txt';
my ($filename) = $test =~ /:([^:]+)$/; # 括号捕获的内容就是'myfilename.txt'

如果你的字符串结构其实是路径+文件名（比如冒号是输入时的笔误），需要取最后一个斜杠后的文件名，那可以调整正则为：

my ($filename) = $test =~ /\/([^\/]+)$/;

不过根据你的描述，显然第一种针对冒号的方法更符合你的需求。

内容的提问来源于stack exchange，提问作者TCLguy