Rechercher et remplacer dans un tableau

Question

Dire que j'ai un tableau qui présente les données ci-dessous

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

Je veux boucler sur ce tableau et de remplacer chaque élément avec son dernier mot comme

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

I Je ne suis pas bon avec regex, quelqu'un peut-il m'aider?

Answer 1

Split et carte utilisant:

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

utilisant l'expression rationnelle:

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

Answer 2

Pourquoi utiliser regex quand vous avez le module File::Basename pour faire le travail pour vous. Il est un module de base en 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; 

sortie:

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