Discussion :

[mashu]

Bonjour,
J'ai besoin de récupérer (systématiquement) le dernier mot d'une ligne d'un fichier. Une ligne peut comporter n mots de n'importe quel caractere...
Chaque mot est séparé par 1 ou plusieurs espaces...
Le dernier mot (celui que je veux récupérer) est celui qui suit le dernier espace...

Je n'arrive pas via une exp.reg. Y a t-il une fonction qui le permet?

Merci.

[Jasmine80]

Tu devrais placer ce fichier dans un array ... si du moins il n'est pas trop gros.

Code :

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

1
2
3
4
5
open(FILE, chemin/fich) or die $!;
my @lines = <FILE>;
close(FILE);
 
my ($word) = ($lines[-1] =~ /\b([A-Z]+)$/i);

Sinon regarde aussi au module Tie::File
http://search.cpan.org/~mjd/Tie-File...ib/Tie/File.pm

[Jedai]

A priori il ne veut pas récupérer le dernier mot du fichier mais simplement le dernier mot d'une ligne, donc il peut très bien lire ligne par ligne :

Code :

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

1
2
3
4
while( my $line = <> ) {
  my $last_word = (split m/\s+/, $line)[-1];
  # work with $last_word
}

--
Jedaï

[mashu]

C'est parfait Jedai !

Merci a vous deux.

Biz à jasmine80.