Discussion :

[Jasmine80]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Philou67430]

Soit tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Soit tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Jasmine80]

Bonjour Philou et merci beaucoup pour ton aide,

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

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

Bonne journée.

[Philou67430]

Toutafait, je l'utilise à foison.