搜索和阵列中的替代

Question

说我有具有以下数据的数组

@array = ('/root/level1','/root/level2', 
      '/root/level1/level2','/root/level1/level2/level3') 

我想遍历这个数组，并用其最后一个字替换每个元素作为

@array = ('level1','level2','level2','level3') 

我正则表达式不好，任何人都可以帮忙吗？

Answer 1

采用分体式和地图：

@array=map{(split(/\//,$_))[-1]}@array; 

使用正则表达式：

@array=map{m|.*/(.*)|}@array; 

Answer 2

为什么要使用正则表达式时，你有File::Basename模块做的工作适合你。它是在Perl 5.

核心模块

use strict; 
use warnings; 
use Data::Dumper; 
use File::Basename; 

my @array = ('/root/level1', 
      '/root/level2', 
      '/root/level1/level2', 
      '/root/level1/level2/level3'); 

@array = map basename($_), @array; 
print Dumper \@array; 

输出：

$VAR1 = [ 
      'level1', 
      'level2', 
      'level2', 
      'level3' 
     ];