Split inclusif et exclusif
JamieMacUloth
Messages postés
43
Date d'inscription
Statut
Membre
Dernière intervention
-
-
-
Slt tt le monde,
J'ai mettons un string
$str = je - aime les fraises des - bois
et j'aimerais splitter sur les '-' et sur 'fraises' en gardant 'fraises'
J'ai testé ça:
my @arr = split(/-|(fraises)/,$str);
mais ça me met des composantes undef dans le @arr, aucune idée pourquoi.
Le résultat final que j'aimerais obtenir est donc:
je
aime les
fraises
des
bois
Anyone can help pleaz ??
Merci d'avance
J'ai mettons un string
$str = je - aime les fraises des - bois
et j'aimerais splitter sur les '-' et sur 'fraises' en gardant 'fraises'
J'ai testé ça:
my @arr = split(/-|(fraises)/,$str);
mais ça me met des composantes undef dans le @arr, aucune idée pourquoi.
Le résultat final que j'aimerais obtenir est donc:
je
aime les
fraises
des
bois
Anyone can help pleaz ??
Merci d'avance
A voir également:
- Split inclusif et exclusif
- Split cam - Télécharger - Messagerie
- Split 4g - Télécharger - Gestion de fichiers
- Hj split - Télécharger - Gestion de fichiers
- Split mp3 - Télécharger - Édition & Montage
- Split photo instagram - Guide
1 réponse
Pas de undef, chez moi. Par contre tu ne gères pas les espaces.
Tu peux utiliser split et retraiter le résultat, en supprimant les tirets et les espaces en trop.
donne :
Dal
Tu peux utiliser split et retraiter le résultat, en supprimant les tirets et les espaces en trop.
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @list = split(/(\s-\s|\sfraises\s)/, "je - aime les fraises des - bois"); @list = grep(!/\s-\s/, @list); # remove hyphens from list for (@list) { s/\sfraises\s/fraises/; } # remove extra spaces around fraises print Dumper(@list);
donne :
$VAR1 = 'je';
$VAR2 = 'aime les';
$VAR3 = 'fraises';
$VAR4 = 'des';
$VAR5 = 'bois';
Dal