traitement sur un tableau

Bonjour à tous,

J'ai un tableau et j'aimerais enlever à chaque entrée, tout ce qui se trouve avant la première tabulation.

Code:

---

my @tab_trunc = map{s/^[^\t]*\t(.*)$/$1/} @{$files{$fi}};

---

Je n'obtiens que des 1 ... faut-il ajouter () quelque part ? d'avance merci.

Soit tu écris :

Code:

---

map{s/^[^\t]*\t(.*)$/$1/} @{$files{$fi}}; # dans ce cas, le tableau modifié est @files

---

Soit tu écris :

Code:

---

1 2 3

use feature qw(:5.10); # ... my @tab_trunc = map{s/^[^\t]*\t(.*)$/$1/r} @{$files{$fi}}; # @files inchangé

---

ou encore :

Code:

---

my @tab_trunc = map{my $file = $_; $file =~ s/^[^\t]*\t(.*)$/$1/; $file } @{$files{$fi}}; # @files inchangé

---

Dans ton écriture initiale, pour chaque élément de @files, ton map retourne le résultat de s///, c'est à dire 1 s'il y a substitution et 0 sinon.
Dans mon écriture 2, le s///r retourne une copie de $_ substitué

Bonjour Philou et merci beaucoup pour ton aide,

Citation:

---

r - perform non-destructive substitution and return the new value

---

... je ne connaissais pas :-) mais c'est vraiment très utile !

Bonne journée.

Toutafait, je l'utilise à foison.