Discussion :

[kacedda]

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...

[kacedda]

Salut

G trouver 8)

Mais pas tout seul

Je le met la pour ce que ca interressera:

Code :

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

1
2
 
$ligne=~/\s([^\s]*)$/ ;

Par contre ya petre dautre facon donc si vous en connaissez dotre ou des plus simple

A+

[Jedai]

On peut aussi faire /\b(\w+)\s*$/ dans le cas où il y aurait un espace à la fin de la ligne. Je pense qu'il y en a d'autres.

[Jedai]

Je rajoute la solution :
$derniermot = (split / /, $ligne)[-1];
Qui est assez amusante aussi je trouve
Elle marche très bien.

[kacedda]

Merci je prend note

Vi je pense aussi kil doit iavoir dautre moyen
Et noublions pas:

"Il y a toujours plus d'une facon de le faire"

[Arioch]

Et noublions pas:

"Il y a toujours plus d'une facon de le faire"

[kacedda]

lol

G retenu la lecon 8)