Bonjour,
 
Je suis en train de m'arracher les cheveux sur quelque chose que j'imagine simple, mais vu mon niveau en perl !!!!
 
Voila j'ai une variable que contient une chaîne de caractère du style $var = aaaaa_bbbbbb .
Je veux supprimer tout ce qui est à partir du _  , c'est à dire ne garder que aaaaa .
Je précise que le nombre de a et de b peut varier.
 
Merci pour votre aide !
 

 

Bonjour, il y a tout un tas de manière de faire ça.
une qui me vient à l'esprit: s/_.*//
 

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $var = "aaa_bbb";
print $var, "\n";
$var =~ s/_.*//o;
print $var, "\n";

A+,

Merci gilou, c'est nickel  
 

 
Une autre question :
 
comment faire pour garder la deuxième partie d'une chaîne de caractère si je n'est pas le "_" mais un espace ?
 
C'est a dire comment faire si $var="aaaa bbbb" pour garder $var="bbbb" ?
 
Merci.

Il va te falloir apprendre les expressions régulières et leur utilisation dans perl, parce que 1) c'est le point fort de perl, et 2) la c'est une utilisation particulièrement simple des expressions régulières

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $var = "aaa bbb";
print $var, "\n";
$var =~ s/.*\s(.*)/$1/o;
print $var, "\n";

 
A+,

Merci Gilou, c'est ce que je suis en train de faire mais grand débutant inside
 

Je vais encore abuser mais faut que je comprenne !
 
si $var="aaa bbb ccc" et que je veux que $var="bbb" ?
 

il te faut juste comprendre comment fonctionne le "grouping" et ça tombe bien la doc est pas mal faite sur ce sujet :
http://perldoc.perl.org/perlretut. [...] ng-matches
 

Un peu trop complexe la, et ça marchera pas si on a encore des blancs. Vaut donc mieux sélectionner la dernière partie sans blancs précédée par un blanc:

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $var = "aaa bbb ccc";
print $var, "\n";
$var =~ s/.*\s([^\s]*)/$1/o;
print $var, "\n";

Edit: ah j'avais mal lu, je pensais que web_olivier voulait la partie finale.
Si tu veux juste la dernière partie entre deux blancs:

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $var = "aaa bbb ccc";
print $var, "\n";
$var =~ s/.*\s([^\s]+)\s.*/$1/o;
print $var, "\n";

C'est la dernière partie entre deux blancs:
avec my $var = "aaa bbb ccc ddd";

Pour le première partie entre deux blancs, c'est du même style, il suffit juste de dire au premier matching de ne pas être greedy (de ne pas tenter de matcher le maximum, mais juste de s’arrêter au premier match):

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $var = "aaa bbb ccc ddd";
print $var, "\n";
$var =~ s/.*?\s([^\s]+)\s.*/$1/o;
print $var, "\n";

A+,