Salut

Voila jouvre un fichier et je voudrai recuperer le dernier mot des lignes
GC de le recuperer a laide dune regex mais ji arrive pas

Source:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl -w
 
use strict;
my $fichier;
my $ligne;
my $fwor;
 
$fichier="nom_du_fichier";
open ( FICHIER , "$fichier" ) ;
 
while( <FICHIER> )
{
     $ligne=$_;
     chomp $ligne;
     print "Source $ligne \n";
     $ligne=~/(\w+)/ ;
     print "Dernier mot $1 \n";
}
 
close( FICHIER );
G essaye differente regex notamment avec $:
=~/(\w+)$/

Et g essaye plein de truc mais sui pas arrive
Si kkun pe maider...