Est ce bien ton espace qui marque la fin de ce que tu veux récupérer?
1 2 3
| my $ligne = "- bla___blakjkfhjsah2758 nkvnhdjsJSHJHSJ44";
my ($Var1) = ($ligne =~/^\-\s([\w\_\d]*)\s+[\w\d]*/);
print $Var1."\n"; |
récupère:
avec le if
1 2 3 4 5 6 7
| my $ligne = "- bla___blakjkfhjsah2758 nkvnhdjsJSHJHSJ44";
if ($ligne=~/^\-\s[\w\_\d]*\s+[\w\d]*/)
{
my ($Var1) = ($ligne =~/^\-\s([\w\_\d]*)\s+[\w\d]*/);
print $Var1."\n";
} |
Si tu ne connais pas le nombre de tirets et d'espaces précédent ce que tu veux récupérer
my ($Var1) = ($ligne=~/^[\-\s]*([\w\_\d])*\s+[\w\d]*/);
Jasmine,
Partager